copie plage de plusieurs feuille vers une seule feuille

[nounours49]

salut à tous

je voudrais creer une boucle me permettant de copier la même plage provenant de differente feuille vers une seule feuille
ci joint ma macro pour la copie (il me manque juste la boucle)

Dim i As Integer
i = Worksheets("listing massif").Range("A65536").End(xlUp).Row
ActiveSheet.Range("AR29:BB38").Select
Selection.Copy
Sheets("listing massif").Select
ActiveSheet.Range("A" & i).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste link:=True
merci d'avance

 

[XanorK]

Re : copie plage de plusieurs feuille vers une seule feuille

en supposant que "listing massif soit la premiere feuille :

Dim i As Integer, x as integer

For x = 2 to worksheets.count
i = Worksheets("listing massif").Range("A65536").End(xlUp).Row
Sheets(X).Range("AR29:BB38").Select
Selection.Copy
Sheets("listing massif").Select
ActiveSheet.Range("A" & i).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste link:=True
next x

 

[Bebere]

Re : copie plage de plusieurs feuille vers une seule feuille

bonjour Xanork,Nounours
une autre façon

Sub CopyPaste()
Dim i As Integer, Sh As Worksheet

For Each Sh In Worksheets
If Sh.Name <> "listing massif" Then
With Worksheets("Feuil2")
i = .Range("A65536").End(xlUp).Row + 1
End With

With Sh
.Range("AR29:BB38").Copy Destination:=Sheets("listing massif").Range("A" & i)
End With
End If
Next Sh

End Sub

à bientôt

 

[Bebere]

Re : copie plage de plusieurs feuille vers une seule feuille

rectification

Sub CopyPaste()
Dim i As Integer, Sh As Worksheet

For Each Sh In Worksheets
If Sh.Name <> "listing massif" Then
With Worksheets("listing massif")
i = .Range("A65536").End(xlUp).Row + 1
End With

With Sh
.Range("AR29:BB38").Copy Destination:=Sheets("listing massif").Range("A" & i)
End With
End If
Next Sh

End Sub

à bientôt