[Calc] Copier / coller simplifié

[Claude72]

Bonjour à tous,
ayant eu besoin d'une macro simple pour copier et coller des données, je suis arriver en m'inspirant des macros existantes à construire une macro simple pour copier et coller rapidement des données d'une feuille "Saisies" vers une autre feuille "Réception" à la suite des données existantes et supprimer les saisies. Je joins un petit fichier et j'attends vos remarques.
Merci d'avance

[Bidouille]

Bonjour,

Afin que le moteur de recherche du forum puisse indexer votre macro, veuillez en publier son contenu

Code : Tout sélectionner

Utilisez les balises [code] pour que cela soit lisible.

Merci également d'indiquer en quoi cette macro est préférable aux exemples qui sont dans le suprême de code :
[Calc] Copier / coller entre deux classeurs ou feuilles

[Claude72]

C'est une petite version simplifiée de la macro ZPlage.Copie en zBasic

Code : Tout sélectionner

Sub CopierSaisiesForum
GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	sFeuille="Saisies"
	sPlage = "A4:G15"
	nIndex = zPlage.LigneVide ("Reception")
	zPlage.Copie(sFeuille, sPlage, "Reception", "A"  &  nIndex)
    zPlage.Supprime("A4:G15", "Saisies")
Call TrierReception
End sub	
Sub TrierReception
GlobalScope.BasicLibraries.loadLibrary("zBasic") 	
Dim oTri As Variant
     oTri = zTri.Demarre
     zTri.Colonne(oTri, 1, "C", "N")
     zTri.Parametre(oTri, "entete", "N")
     zTri.Execute( "Reception", "A4:G300", oTri)
Call Saisies
End sub     


sub Reception
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 2

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())


end sub

[Dolev]

Bonjour,

La macro avec l'appel au dispatcher sur uno:JumpToTable n'a pas vraiment d'intérêt.
Pour activer une feuille, pourquoi n'utilisez-vous pas zFeuille.Active ?

[Claude72]

Bonjour, oui effectivement, c'est beaucoup plus simple, je ne savais pas !!!

[Dolev]

Re,
Je ne vois pas non plus pourquoi vous copiez collez.
Sans doute qu'une vraie base de données et un formulaire de saisie serait plus adapté.
Car si c'est pour gérer une compta familiale, le tableur n'est pas une solution.
Il existe des logiciels dédiés comme MaxiCompte par exemple.

Pensez à passer votre sujet en résolu.