Comment mettre plusieur onglet dans un (vba)
Résolu
benben82
Messages postés
17
Statut
Membre
-
benben82 Messages postés 17 Statut Membre -
benben82 Messages postés 17 Statut Membre -
Bonjour,
j'ai plusieurs onglets avec des données en ligne je cherche a mettre les données les une en dessous des autres sachant que je dois le faire tous les mois et le nombre de ligne varie d'un mois à l'autre.
la difficultée est de coller les données du 2ème onglet a la première ligne vide du 1er onglet et ainsi de suite.
merci pour vos idées...
j'ai plusieurs onglets avec des données en ligne je cherche a mettre les données les une en dessous des autres sachant que je dois le faire tous les mois et le nombre de ligne varie d'un mois à l'autre.
la difficultée est de coller les données du 2ème onglet a la première ligne vide du 1er onglet et ainsi de suite.
merci pour vos idées...
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
Voili voilou !!
Sub RemplirOnglet1()
For CompteurOnglet = 2 To ActiveWorkbook.Sheets.Count ' on ne lit pas l'onglet 1 !!
ActiveWorkbook.Sheets(1).Select
LigneLue = 1
While (ActiveWorkbook.Sheets(CompteurOnglet).Cells(LigneLue, 1) <> "")
ActiveWorkbook.Sheets(CompteurOnglet).Rows(LigneLue).Copy
ActiveWorkbook.Sheets(1).Cells(LigneVide, 1).Select
ActiveSheet.Paste ' peut-être faut il penser aussi a supprimer la ligne pour le mois suivant ?
LigneLue = LigneLue + 1
Wend
Next
End Sub
Function LigneVide()
Ligne = 1
While (ActiveWorkbook.Sheets(1).Cells(Ligne, 1) <> ""): Ligne = Ligne + 1: DoEvents: Wend
LigneVide = Ligne
End Function
