XL 2010 Macro pour copier coller valeur sur des lignes filtrer

pierrejean

XLDnaute Barbatruc

• 31 Janvier 2017

• #2

Bonjour jbcall

A tester:

Sub test()
For n = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & n) = "X" Then Rows(n).Value = Rows(n).Value
Next
End Sub

 

Vote positif 0 Vote négatif

jlbcall

XLDnaute Occasionnel

• 31 Janvier 2017

• #3

pierrejean à dit:

Bonjour jbcall

A tester:

Sub test()
For n = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & n) = "X" Then Rows(n).Value = Rows(n).Value
Next
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

jlbcall

XLDnaute Occasionnel

• 31 Janvier 2017

• #4

merci ça marche si vous avez encore 1 minute pouvez m'expliquer en deux lignes les commande utilisées

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Janvier 2017

• #5

Re

Avec commentaire:
Sub test()
' de la 1er ligne 1 a la derniere ligne remplie de la colonne A
For n = 1 To Range("A" & Rows.Count).End(xlUp).Row
's'il y a un X en colonne A alors les cellules de la ligne prennent la valeur calculée
If Range("A" & n) = "X" Then Rows(n).Value = Rows(n).Value
Next
End Sub

 

Vote positif 0 Vote négatif

jlbcall

XLDnaute Occasionnel

• 31 Janvier 2017

• #6

Merci beaucoup bonne soirée

 

Vote positif 0 Vote négatif