XL 2010 Macro pour copier coller valeur sur des lignes filtrer

[jlbcall]

test

 

[pierrejean]

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

 

[jlbcall]

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

 

[jlbcall]

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

 

[pierrejean]

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

 

[jlbcall]

Merci beaucoup bonne soirée