Copie plage de données avec incrémentation

Bonjour,

Dans mon classeur1 sur ma feuille1 j'ai une plage de données (C5:E8) que je veux copié puis coller dans la feuille2 en cellule B2 par exemple, donc ma copie sera en (B2:D5) ensuite je veux copié une nouvelle fois en feuille 1 ma plage (C5:E8) pour copié avec une incrémentation en feuille2 (B7 : D10) puis à nouveau feuille1 copie (C5:E8) nouveau pour copié en (B12:D15 ) en feuille2 exct,....

Comment faire ?

Merci pour votre retour.

Bonjour,

Un exemple.

Cdlt.

Public Sub CopyData()
Dim ws As Worksheet, ws2 As Worksheet
Dim Cell As Range, n As Long
Const R As String = "C5:E8"
    Set ws = Worksheets("Feuil1")
    Set ws2 = Worksheets("Feuil2")
    n = IIf(IsEmpty(ws2.Cells(2, 2)), 2, ws2.Cells(Rows.Count, 2).End(xlUp).Row + 2)
    ws.Range(R).Copy Destination:=ws2.Cells(n, 2)
End Sub

Jean-Eric a écrit :

Bonjour,

Un exemple.

Cdlt.

Public Sub CopyData()
Dim ws As Worksheet, ws2 As Worksheet
Dim Cell As Range, n As Long
Const R As String = "C5:E8"
    Set ws = Worksheets("Feuil1")
    Set ws2 = Worksheets("Feuil2")
    n = IIf(IsEmpty(ws2.Cells(2, 2)), 2, ws2.Cells(Rows.Count, 2).End(xlUp).Row + 2)
    ws.Range(R).Copy Destination:=ws2.Cells(n, 2)
End Sub

Bonjour,

Cela fonctionne parfaitement avec l'exemple, il me reste plus qu'à l'appliquer dans mon fichier réel et nickel.

J'essai dès demain !

Cdt,