Regrouper plusieurs feuilles Excel

Résolu
eagen47 -  
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

  1. eagen47 Auteur
    Merci beaucoup pour le coup de pouce
    1. eagen47 Auteur
      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
    2. Mytå Contributeur
      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å
    3. Vidock_01
      Merci Mytå