Comment mettre plusieur onglet dans un (vba)
Résolu/Fermé
benben82
Messages postés
17
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
22 août 2008
-
7 août 2008 à 16:23
benben82 Messages postés 17 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 22 août 2008 - 8 août 2008 à 10:07
benben82 Messages postés 17 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 22 août 2008 - 8 août 2008 à 10:07
A voir également:
- Comment mettre plusieur onglet dans un (vba)
- Rouvrir un onglet fermé - Guide
- Onglet privé - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum Programmation
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
8 août 2008 à 10:07
un grand merci pour ton aide ton code fonctionne a merveille.