Ne copier qu'une ligne sur 3

[eymeric]

Re-bonjour,

Est-il possible, comme sur l'exemple de copier coller qu'une ligne sur 3 ?

Merci

 

[Hervé]

Bonjour

Une proposition en pièce jointe.

Public Sub vev()
Dim i As Integer
Dim n As Integer
n = 1
For i = 1 To Range("a65000").End(xlUp).Row Step 3
Range("k" & n) = Range("a" & i)
n = n + 1
Next i
End Sub


Salut
Hervé

 

[eymeric]

Merci ;o)

 

[PhiBou]

Bonjour Eymeric, Hervé, le Forum

Ou par formule :

=INDIRECT("A" & 3*LIGNE()-2)

Bonne fin de journée

PhiBou