Simplifier une boucle

[albert]

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

 

[Pascal76]

Salut Albert

Tu boucles 2 fois sur les feuilles

1- For each ws
2 - For i=1 to 3

Donc en reprenant ta macro

Sub copier()
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "cumul" Then


ws.select
ws.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
End If

Next Ws

End Sub

Tu limiteras tes doublons

Bon courage

Pascal

 

[albert]

merci Pascal, je commençais à tourner en rond
maintenant, ca roule

j'avais un autre petit bug, j'ai corrigé avec offset

Range("A65536").End(xlUp).Offset(1, 0).Select

cordialement