Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Consolidation par macro

Consolidation par macro

5 réponses
Avatar
Michir
Bonsoir à tous,
Voilà, pourriez vous m'aider à écrire une macro de consolidation.
Je souhaite consolider 12 feuilles, ayant exactement ma même
architecture, dans une feuille récapitulative.
Le nombre de lignes peut être différent (une ligne par commande)
Il ne doit pas y avoir de lignes vierges dans la récap.
Merci beaucoup,
Michel
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,
essaie ceci:
La feuille "Recap" doit exister
'--------
Sub jj()
Dim sh As Worksheet
Dim derlD As Long
Application.ScreenUpdating = False
Sheets("recap").Cells.Clear
derlD = 1
For Each sh In Worksheets
If sh.Name <> "Recap" Then
derlC = Sheets(sh.Name).Range("a65536").End(3).Row
For Each c In Sheets(sh.Name).Range("a1:a" & derlC)
Sheets(sh.Name).Rows(c.Row).Copy
Sheets("Recap").Range("A" & derlD).PasteSpecial
Paste:=xlPasteValues
derlD = derlD + 1
Next
End If
Next
Application.CutCopyMode = False
End Sub
'----------
Salutations
JJ

"Michir" a écrit dans le message de news:
451c1f7b$0$27394$
Bonsoir à tous,
Voilà, pourriez vous m'aider à écrire une macro de consolidation.
Je souhaite consolider 12 feuilles, ayant exactement ma même architecture,
dans une feuille récapitulative.
Le nombre de lignes peut être différent (une ligne par commande)
Il ne doit pas y avoir de lignes vierges dans la récap.
Merci beaucoup,
Michel


Avatar
JB
Bonjour,

La commande Données/Consolider devrait suffire:

http://cjoint.com/?jDessecoKJ

Cordialement JB


Bonsoir à tous,
Voilà, pourriez vous m'aider à écrire une macro de consolidation.
Je souhaite consolider 12 feuilles, ayant exactement ma même
architecture, dans une feuille récapitulative.
Le nombre de lignes peut être différent (une ligne par commande)
Il ne doit pas y avoir de lignes vierges dans la récap.
Merci beaucoup,
Michel


Avatar
Michir
Bonsoir à tous,
Voilà, pourriez vous m'aider à écrire une macro de consolidation.
Je souhaite consolider 12 feuilles, ayant exactement ma même
architecture, dans une feuille récapitulative.
Le nombre de lignes peut être différent (une ligne par commande)
Il ne doit pas y avoir de lignes vierges dans la récap.
Merci beaucoup,
Michel


Merci à Jacky et à JB, çà fonctionne très bien
Michel

Avatar
bookaro92
J'ai aussi un tableau à consolider par macro. J'ai copié votre formule mais
ça bloque au niveau de la ligne Paste:=xlPasteValues. Pouvez vous m'aider ?
J'ai 35 feuilles et il y en aura de plus en plus.

Merci

carole


Bonsoir,
essaie ceci:
La feuille "Recap" doit exister
'--------
Sub jj()
Dim sh As Worksheet
Dim derlD As Long
Application.ScreenUpdating = False
Sheets("recap").Cells.Clear
derlD = 1
For Each sh In Worksheets
If sh.Name <> "Recap" Then
derlC = Sheets(sh.Name).Range("a65536").End(3).Row
For Each c In Sheets(sh.Name).Range("a1:a" & derlC)
Sheets(sh.Name).Rows(c.Row).Copy
Sheets("Recap").Range("A" & derlD).PasteSpecial
Paste:=xlPasteValues
derlD = derlD + 1
Next
End If
Next
Application.CutCopyMode = False
End Sub
'----------
Salutations
JJ

"Michir" a écrit dans le message de news:
451c1f7b$0$27394$
Bonsoir à tous,
Voilà, pourriez vous m'aider à écrire une macro de consolidation.
Je souhaite consolider 12 feuilles, ayant exactement ma même architecture,
dans une feuille récapitulative.
Le nombre de lignes peut être différent (une ligne par commande)
Il ne doit pas y avoir de lignes vierges dans la récap.
Merci beaucoup,
Michel







Avatar
firouz91
bookaro92 a écrit le 12/11/2006 à 21h25 :
J'ai aussi un tableau à consolider par macro. J'ai copié votre
formule mais
ça bloque au niveau de la ligne Paste:=xlPasteValues. Pouvez vous
m'aider ?
J'ai 35 feuilles et il y en aura de plus en plus.

Merci

carole


Bonsoir,
essaie ceci:
La feuille "Recap" doit exister
'--------
Sub jj()
Dim sh As Worksheet
Dim derlD As Long
Application.ScreenUpdating = False
Sheets("recap").Cells.Clear
derlD = 1
For Each sh In Worksheets
If sh.Name <> "Recap" Then
derlC = Sheets(sh.Name).Range("a65536").End(3).Row
For Each c In Sheets(sh.Name).Range("a1:a" & derlC)
Sheets(sh.Name).Rows(c.Row).Copy
Sheets("Recap").Range("A" & derlD).PasteSpecial
Paste:=xlPasteValues
derlD = derlD + 1
Next
End If
Next
Application.CutCopyMode = False
End Sub
'----------
Salutations
JJ

"Michir" a écrit dans le
message de news:
451c1f7b$0$27394$
Bonsoir à tous,
Voilà, pourriez vous m'aider à écrire une macro de
consolidation.
Je souhaite consolider 12 feuilles, ayant exactement ma même
architecture,
dans une feuille récapitulative.
Le nombre de lignes peut être différent (une ligne par commande)
Il ne doit pas y avoir de lignes vierges dans la récap.
Merci beaucoup,
Michel










Bonjour,
Je susi nouveau ici
J'ai consolider les :
4 feuillets (in Excel 2003)
40 lignes plus ou moins et 7 colonnes plus ou moins
En sachant que la 1ere colonne ce sont les intitulés et la 1ere ligne idem des champs
C'est plus ou moins, car on n' a pas tojours les mêmes nombres de lignes et de colonnes
Dans feuillet Recap
Celà a marché
Sauf qu'il faut enlever la formule
'Paste:=xlPasteValues'
C'est une Consolidation de tableaux les unes en dessous des autres dans
Feuil 'Recap'