A
albert
Guest
Bonjour à tous, bonjour le forum,
Je cherche à empiler les données des feuilles 1,2,3 dans la feuille « cumul », de manière à obtenir un colonne A1 :A27
J’ai essayé une boucle, mais elle fait des doublons
Comment arriver à faire en sorte que la boucle ne se reproduise pas une seconde fois ??
8888888888888888888
mon code :
Sub copier()
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "cumul" Then
For i = 1 To 3
Sheets(i).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("cumul").Select
Range("A65536").End(xlUp).Select
ActiveSheet.Paste
Next
End If
Next Ws
End Sub
Merci d’avance
albert
Je cherche à empiler les données des feuilles 1,2,3 dans la feuille « cumul », de manière à obtenir un colonne A1 :A27
J’ai essayé une boucle, mais elle fait des doublons
Comment arriver à faire en sorte que la boucle ne se reproduise pas une seconde fois ??
8888888888888888888
mon code :
Sub copier()
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "cumul" Then
For i = 1 To 3
Sheets(i).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("cumul").Select
Range("A65536").End(xlUp).Select
ActiveSheet.Paste
Next
End If
Next Ws
End Sub
Merci d’avance
albert