Copie une ligne sur deux

[lionelch1]

Bonjour ,
je recherche a copié une ligne sur deux est copier la premiere ligne a coté de la deuxieme
ci joint exemple
Merci
lionel

 

[pierrejean]

Re : Copie une ligne sur deux

bonjour lionel

A tester:

Sub copie()
For n = 2 To Range("A65536").End(xlUp).Row Step 2
  Range("A" & n + 1).Cut
  ActiveSheet.Paste Destination:=Range("B" & n)
Next
End Sub

 

[JHA]

Re : Copie une ligne sur deux

Bonjour à tous,

un essai avec la fonction mod()

JHA

 

[lionelch1]

Re : Copie une ligne sur deux

Merci a tous les deux
ceci fonctionne , mais est il possible (je verrais par la suite )
de mettre une condition , exemple :
a condition et seulemement si dans la colonne 2 (ou B) il y a la lettre X
merci
lionel

 

[JHA]

Re : Copie une ligne sur deux

Re,

avec critère en "B"

JHA

 

[lionelch1]

Re : Copie une ligne sur deux

Re ,

Avec critere en B , marche aussi
Impec ! Merci

Lionel