Regrouper plusieurs feuilles Excel

Résolu
eagen47 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
 Vidock_01 -
Bonjour,

Je ne suis pas très pro pour Excel , mais j'ai besoin d'additionner plusieurs feuilles Excel ( feuil1, feuil2 ,feuil3, feuil4) d'un même classeur sur une seule feuille (feuil5)

les feuilles des différents classeur comporte les mêmes rubriques et j'ai besoin de les additionner ( ou regrouper les donnés pour en faire un cumul ou une synthèse de l'ensemble de mes feuilles

je connais très peu le langage VBA et je travail sur Excel 2007
Je mets un exemple de ma macro qui ne regroupe malheureusement que la dernière feuille
Pourrez vous m'apporter une aide en corrigeant cette macro:

Sub Synthese()
'copie feuille 1
Sheets("feuil1").Select
Range("A1:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("feuil5").Select
Range("A1:H2").Select
ActiveSheet.Paste

'Copie feuille 2
Sheets("feuil2").Select
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("feuil5").Select
Range("A2:H2").Select
ActiveSheet.Paste

'Copie feuille 3
Sheets("feuil3").Select
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("feuil5").Select
Range("A2:H2").Select
ActiveSheet.Paste

'Copie feuille 4
Sheets("feuil4").Select
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("feuil5").Select
Range("A2:H2").Select
ActiveSheet.Paste

Range("A2").Select

End Sub

Merci pour votre aide

Je joint un exemple:
https://www.cjoint.com/c/CLBcnu07qfI

2 réponses

Réponse 1 / 2
eagen47 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup pour le coup de pouce
0
eagen47 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Mytå pour ta macro

serait il possible encore de m'aider car je m'aperçois en utilisant cette macro qu'il ne prend pas en compte dans la synthèse de la feuille 5, les dernières lignes de toutes les colonnes des feuilles 1,2,3, seul la feuille 4 toutes les données sont pris en compte dans la synthèse de la feuille5.

Merci
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Re le Forum

Code modifié 
Sub Synthese()
'Vider la feuille
    Sheets("feuil5").Range("A1:H2").CurrentRegion.Delete
'Copie les feuilles
    'Copie feuille 1
    Sheets("feuil1").Range("A1:H2").CurrentRegion.Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp)
    'Copie feuille 2
    Sheets("feuil2").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp).Offset(1)
    'Copie feuille 3
    Sheets("feuil3").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp).Offset(1)
    'Copie feuille 4
    Sheets("feuil4").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

Mytå
0
Vidock_01
 
Merci Mytå
0
Réponse 2 / 2
eagen47 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup Mytå pour ton aide cela fonctionne
0