Réunir plusieurs feuilles en une??

Re : Réunir plusieurs feuilles en une??

Bonjour Djo59, le Forum

Une solution en bouclant sur les feuilles de ton classeur:

For i = 1 To ThisWorkbooks.Sheets.Count -1
Derligne = ThisWorkbooks.Sheets(i).Range("A65536").End(xlUp).Row
Der = ThisWorkbooks.Sheets("Recap").Range("A65000").End(xlUp).Row + 2
If Der < 5 Then Der = 1
ThisWorkbooks.Sheets(i).Range("A2:O" & Derligne).Copy
ThisWorkbooks.Sheets("Recap".Range("A" & Der).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
ThisWorkbooks.Sheets("Recap").Range("A" & Der).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Next i


C'est une solution qui m'a été trouvée sur ce Forum, pour sauvegarder les données de différentes feuilles a la suite sur un autre classeur. J'ai essayé de l'adapter à ton cas. (Recopie sur une feuille Recap placée en dernier dans ton classeur).

En espérant que cela t'aidera...

Gianluca

Re : Réunir plusieurs feuilles en une??

Bonjour,

Quelques petites modifications sur cette macro :
1. Les variables à déclarer :
- i --> Dim i as byte
- derligne et der --> Dim derligne As Integer, der As Integer
2. A Thisworkbooks il faut enlever le s --> Thisworkbook

Il faut également préciser que la feuille "recap" doit se trouver dans le classeur et comme dernier onglet. Le cas contraire, la macro ne reprendra pas les données de toutes les feuilles.

La macro peut être modifiée comme suit :

Amicalement

Dan

Re : Réunir plusieurs feuilles en une??

Re le fil....


C'est là qu'on voit les pros 🙂
et que j'ai bien du mal avec les with.... 😛

Merci à toi Dan pour ces précisions.

Bonne journée

Gianluca

Re : Réunir plusieurs feuilles en une??

🙂 Salut forum,

Ai-je bien compris ? Fichier joint avec macro.
Une autre méthode :un peu différente de celle de Dan.
Copie de toutes les lignes ;on conserve l'entête de colonnes.
(vaux mieux qu'il soit identique dans toutes les feuilles)
Une autre méthode :un peu différente de celle de Dan.
Ca n'utilise pas les variables Der....
Je m'arrête sur la colonne F (on peut modifier), ca copie
chaque feuille de A2 jusqu'en bas.
La feuille de destination pour la copie est sheets(1), ce qui veux dire
la première à gauche. Si il n'y en pas, mets en une.
Sinon on peut en créer une en ajoutant quelques lignes
dans la macro : Sheets.add before:=sheets(1)

Cela te conviendrait t-il ? 🙄

@+

Re : Réunir plusieurs feuilles en une??

Bonjour à vous,
Je suis intérréssé par cette macro mais pour moi, il faudrait cumuler les valeurs de chaque feuille 1 de différents classeurs (Les classeurs étant dans un même dossier).
Comment peut on adapter ce code ?
Merci d'avance