XL 2010 Macro pour copier coller valeur sur des lignes filtrer

pierrejean

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
56
Affichages
2 K
Réponses
3
Affichages
307

Statistiques des forums

Discussions
312 811
Messages
2 092 307
Membres
105 347
dernier inscrit
VLEN