Discussion :

[RussellD]

Bonjour à tous,

j'ai un classeur Excel avec 5 feuilles, remplies avec des données de mise en forme diverses. J'aimerais créer une macro qui crérait une feuille "Résumé" (dans le même fichier) qui regrouperait les informations de ces 5 feuille à la suite.
Cette feuille serait donc en fait la succession des données des 5 feuilles les unes en dessous des autres (tout en gardant la mise en forme originelle)

Est-ce que quelqu'un aurait une idée de macro pouvant réaliser ceci (un copier-coller successuf en quelque sorte)

D'avance merci pour vos réponses

[Yoyo57]

Bonjour RussellD,

D'abord, comment définis-tu la taille de tes plages à copier ? Comme tu le sais sûrement, une feuille Excel 2003 est limitée à 65535 lignes. Si tu essaies de copier 65535 lignes * 5 (5 feuilles à copier) les unes en dessous des autres dans une autre feuille, cette dernière devra comporter plus de lignes que sa limite !

Il faut donc savoir, avant de pouvoir t'aider, comment tu définis la fin de ta plage (soit un nombre de lignes fixe, soit toutes les lignes jusqu'à ce que la case d'une colonne soit vide, etc...)

Après, on peut imaginer un code du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count) 'Permet d'insérer une feuille après les autres feuilles
Sheets(Sheets.count).Name = "Resume"
For i = 1 to 5
     ' Copie de la plage de chaque feuille
Next i