Rapport de message :*
 

Re: Copier une plage et coller toutes les X lignes.

Titre du sujet : Re: Copier une plage et coller toutes les X lignes.
par david84 le 12/03/2013 22:27:03

Bonsoir,
en admettant que tes données de la colonne source commencent en cellule A1 et que tes données ne comportent pas de cellules vides, ci-joint une macro à tester (copie en colonne B) :
Sub test()
Dim DerLig As Long, i As Long
DerLig = Range("A" & Rows.Count).End(xlUp).Row 'détermine la dernière ligne
For i = 1 To DerLig
    Cells(i + i - 1, 2) = Cells(i, 1)
Next i
  
A+