Je dois recopier les cellules "A11" en "A22" puis "A66" en "A77" etc....juqu'à ce qu'il n'y ait plus de ligne à copier (plusieurs centaines).
Pourriez vous m'indiquer le code de la macro svp ?
Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row Step 5
Cells(i, 1).Resize(, 4).Copy Cells(i + 1, 1).Resize(, 4)
Next i
End Sub
Et pour finir , si vous en avez le temps et si ce n'est pas trop abuser ...:
Maintenant que la copie est effectuée , je souhaiterais supprimer 3 lignes vierges entre ligne 2 et ligne 6 , puis entre ligne 7 et 11, etc ...jusqu'en bas du tableau.
Pouvez vous m'écrire ce code, ainsi que celui pour remettre des lignes vierges , par la suite ?
Option Explicit
Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -5
Cells(i, 1).Resize(, 4).Copy Cells(i + 1, 1).Resize(, 4)
If i > 5 Then Cells(i - 3, 1).Resize(3).EntireRow.Delete
Next i
End Sub