Discussion :

[robert321]

Bonjour à tous,

le titre n'est peut être pas clair.

J'ai un fichier Excel avec 1 colonne et 1000 ligne.

Je cherche à copier uniquement les ligne 2,6,10,14,18 ......

auriez vous une piste svp?

En vous remerciant par avance,

Bien cordialement,

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Derl As Long
Dim L As Long
Dim L2 As Long
Derl = Sheets("Feuil1").UsedRange.Rows.Count
For L = 2 To Derl Step 4
  Sheets("Feuil1").Rows(L).Copy Sheets("Feuil2").Cells(2, 1).Offset(L2)
  L2 = L2 + 1
Next
End Sub

[robert321]

Top merci