Copie une ligne sur deux

pierrejean

XLDnaute Barbatruc

• 24 Juillet 2012

• #2

Re : Copie une ligne sur deux

bonjour lionel

A tester:

Code:

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 24 Juillet 2012

• #3

Re : Copie une ligne sur deux

Bonjour à tous,

un essai avec la fonction mod()

JHA

 

Pièces jointes

• 1 ligne sur 2.xls

  25 KB · Affichages: 455

Vote positif 0 Vote négatif

L

lionelch1

XLDnaute Nouveau

• 24 Juillet 2012

• #4

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 24 Juillet 2012

• #5

Re : Copie une ligne sur deux

Re,

avec critère en "B"

JHA

 

Pièces jointes

• 1 ligne sur 2 bis.xls

  28 KB · Affichages: 261

Vote positif 0 Vote négatif

L

lionelch1

XLDnaute Nouveau

• 24 Juillet 2012

• #6

Re : Copie une ligne sur deux

Re ,

Avec critere en B , marche aussi
Impec ! Merci

Lionel

 

Vote positif 0 Vote négatif