Sujet Précédent Sujet Suivant

Regrouper plusieurs feuilles Excel

Résolu/Fermé
eagen47 Messages postés 4 Date d'inscription vendredi 27 décembre 2013 Statut Membre Dernière intervention 30 décembre 2013 - 27 déc. 2013 à 02:23
 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:
https://www.cjoint.com/c/CLBcnu07qfI

2 réponses

Réponse 1 / 2
eagen47 Messages postés 4 Date d'inscription vendredi 27 décembre 2013 Statut Membre Dernière intervention 30 décembre 2013
27 déc. 2013 à 19:50
Merci beaucoup pour le coup de pouce
0
eagen47 Messages postés 4 Date d'inscription vendredi 27 décembre 2013 Statut Membre Dernière intervention 30 décembre 2013
30 déc. 2013 à 02:32
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 mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 951
30 déc. 2013 à 02:45
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
10 nov. 2015 à 08:56
Merci Mytå
0
Réponse 2 / 2
eagen47 Messages postés 4 Date d'inscription vendredi 27 décembre 2013 Statut Membre Dernière intervention 30 décembre 2013
30 déc. 2013 à 03:04
Merci beaucoup Mytå pour ton aide cela fonctionne
0