Réunir plusieurs feuilles en une??

[djo59]

Salut a tous,
Voila mon petit soucis, je voudria réunir le contenu de plusieurs feuilles (identiques en structure) dans un seul fichier. Non pas les additionner ou autres simplkement que leur contenu s'affiche à la suite l'un de l'autre
EX: une feuille pour chaque employé avec ses notes de frais et une (celle que je veux) qui reprend toute les notes de frais de tout les employé. Pas la somme ms simplement la recopier (genre copier/coller)
Merci
A +

 

[gianluca]

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

 

[Dan]

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 :

Sub copie()
Dim i As Byte
Dim derligne As Integer, der As Integer
With ThisWorkbook
 For i = 1 To .Sheets.Count - 1
 Derligne = .Sheets(i).Range("A65536").End(xlUp).Row
 Der = .Sheets("Recap").Range("A65536").End(xlUp).Row + 2
 If Der < 5 Then Der = 1
    .Sheets(i).Range("A2:O" & Derligne).Copy
    .Sheets("Recap").Range("A" & Der).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    .Sheets("Recap").Range("A" & Der).PasteSpecial Paste:=xlPasteColumnWidths
 Next i
 End With
End Sub

Amicalement

Dan

 

[gianluca]

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

 

[papapaul]

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 ? 🙄

@+

 

[fanic]

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