Regrouper plusieurs feuilles Excel [Résolu/Fermé]

Messages postés
4
Date d'inscription
vendredi 27 décembre 2013
Statut
Membre
Dernière intervention
30 décembre 2013
- - Dernière réponse :  Vidock_01 - 10 nov. 2015 à 08:56
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:
http://cjoint.com/?CLBcnu07qfI
Afficher la suite 

2 réponses

Messages postés
4
Date d'inscription
vendredi 27 décembre 2013
Statut
Membre
Dernière intervention
30 décembre 2013
0
Merci
Merci beaucoup pour le coup de pouce
eagen47
Messages postés
4
Date d'inscription
vendredi 27 décembre 2013
Statut
Membre
Dernière intervention
30 décembre 2013
-
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
Mytå
Messages postés
2995
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
711 -
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å
Merci Mytå
Messages postés
4
Date d'inscription
vendredi 27 décembre 2013
Statut
Membre
Dernière intervention
30 décembre 2013
0
Merci
Merci beaucoup Mytå pour ton aide cela fonctionne