Comment mettre plusieur onglet dans un (vba)
Résolu
benben82
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
benben82 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
benben82 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
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...
A voir également:
- Comment mettre plusieur onglet dans un (vba)
- Rouvrir un onglet fermé - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Edge nouvel onglet google ✓ - Forum Microsoft Edge / Internet Explorer
- Excel compter cellule couleur sans vba - Guide
- Ouvrir nouvel onglet google - Forum Microsoft Edge / Internet Explorer
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
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
un grand merci pour ton aide ton code fonctionne a merveille.