Copier 1 Cell en 10 Cell

Bonjour,

Je voudrais s'il vous plaît:

Do While i <>""

cells(i, 3).copy

Range(cells(range("D1").end(xldown) + 1, 4), cells(range("D1").end(xldown) + 10, 4).paste

Loop

Voire Capture.PNG

En vous remerciant d'avance.

Tyler Durden

capture
8vba.xlsx (8.24 Ko)

Bonjour,

à tester,

[code]Sub test()
rw1 = Cells(Rows.Count, 3).End(xlUp).Row
rw2 = 2

For i = 2 To rw1
   Range("D" & rw2 & ":D" & rw2 + 9).Value = Cells(i, 3).Value
   rw2 = Cells(Rows.Count, 4).End(xlUp).Row + 1
Next i
End Sub

[/code]

un grand merci ^^.

Rechercher des sujets similaires à "copier"