[Résolu][Calc] Exporter le contenu d’une colonne sans les cellules vides

[FLB37]

[RESOLU][Calc] Exporter le contenu d’une colonne sans les cellules vides.

Bonjour,
Avec l’enregistreur de macro, j’ai réalisé une macro pour copier une portion de colonne (Lundi, H2:H25), et la coller dans une autre colonne sans les cellules vides (M4:M27). J’ai réalisé les mêmes macros pour mercredi et vendredi.
Quand je lance les macros manuellement, les unes après les autres, j’obtiens le résultat voulu.
Si j’utilise les boutons de commande plusieurs fois j’obtiens le même résultat pour les trois macros, je ne vois pas pourquoi ?

Merci pour votre aide, je continue de chercher ....

PS: Les macros sont enregistrées dans le fichiers : TEST Pla.ods/Standard/modul1/

[micmac]

Bonjour,

Impératif.
Veuillez consulter attentivement les règles de cette section dans le bandeau rouge en haut de page. Si cela n'est pas fait lors de votre prochain passage le sujet sera verrouillé.

[yclik]

Bonjour
une proposition avec macro unique déclenché par bouton et conditionnée avec le nom du bouton

TEST Pla-1.ods

pas réussi avec boucle for next alors j'ai fait avec des goto et étiquettes:

Code : Tout sélectionner

Sub CopierColler(Event as variant)
dim oDoc   as object	
dim oSheet as object	
oSheet = ThisComponent.sheets.GetByName("Feuille1") REM  nom de la feuille	
oDoc = ThisComponent	
oSheet = oDoc.CurrentController.activeSheet	
Dim NomBouton as string
Dim oColSource as string
Dim oColCible as string
dim oCellSource as string

dim oLigneSource as double
dim oLigneCible as double	
	
NomBouton  = Event.Source.Model.Name rem récupère le nom du bouton déclenché	


 	If NomBouton="Lundi" then oColSource=("H")
 	If NomBouton="Lundi" then oColCible=("M")
 	If NomBouton="Mercredi" then oColSource=("I")
 	If NomBouton="Mercredi" then oColCible=("N")
    If NomBouton="Vendredi" then oColSource=("J")
 	If NomBouton="Vendredi" then oColCible=("O")
 	
Départ:
oLigneSource=2
oLigneCible= 3
GoTo Copie rem(saute 1 pas)

Recommence:
	 oLigneSource=oLigneSource+1
Copie:
oCellSource=oSheet.getCellRangeByName(oColSource+oLigneSource).String 'copie cellule
 If Len(oCellSource) =0 then goto Recommence
oLigneCible=oLigneCible+1

oSheet.getCellRangeByName (oColCible+oLigneCible).String=oCellSource rem colle				

If oLigneSource= 25 then exit sub

goto Recommence


End Sub

[FLB37]

Un Grand Merci

[Dude]

Salut,

Avec zBasic installé, c'est ultra simple :

Code : Tout sélectionner

Sub SupprimeLigneVide

GlobalScope.BasicLibraries.loadLibrary ("zBasic")

	maPlage = "H1:H25"
	oTableKO = zPlage.VersTable(maPlage, "Feuille1")
	oTableOK = zTable.SansLigneVide(oTableKO)
	zTable.Ecrit("Récap", "A1", oTableOK)

	maPlage = "I1:I25"
	oTableKO = zPlage.VersTable(maPlage, "Feuille1")
	oTableOK = zTable.SansLigneVide(oTableKO)
	zTable.Ecrit("Récap", "B1", oTableOK)

	maPlage = "J1:J25"
	oTableKO = zPlage.VersTable(maPlage, "Feuille1")
	oTableOK = zTable.SansLigneVide(oTableKO)
	zTable.Ecrit("Récap", "C1", oTableOK)

End sub