Eliminer ligne barées du fichier

[Guismo]

Bonjour,

mon fichier contient des lignes barées et non barées.
je souhaite éliminées toutes les lignes dont les références sont barées.
Extrait du fichier en pièce jointe.
Nombre de ligne total 4500.

Merci

 

[porcinet82]

Salut Guismo,

Ton fichier n'est pas passé, tu peux allé voir Lien supprimé pour voir comment faire.

@+

 

[Abel]

Bonjour Guismo,porcinet82,

Mettons que la référence a tester soit en colonne 'A' de 'A1' à 'A4500'.
Le 4500 peut varier, la macro le retrouvera.
Le 'A1' est à règler dans la macro si le tableau ne démarre pas en ligne 1.

Essaie ce code :

For i = Range('a65536').End(xlUp).Row To 1 Step -1
If Range('a' & i).Font.Strikethrough = True Then Range('a' & i).EntireRow.Delete
Next i

Abel.

Edition :
J'oubliais. Je soumets cette solution en attendant plus d'informations.
Suis le lien que porcinet82 t'a joint.

Message édité par: Abel, à: 17/01/2006 13:35

 

[fichier pour ref barées]

Un extrait de fichier.
merci [file name=ex_20060117134447.zip size=2389]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ex_20060117134447.zip[/file]

 

[Abel]

Re,

As tu essayé mon code joint plus haut ?

Abel.

 

[Guismo]

J'ai lancé la macro, ça réfléchi mais n edonne rien pour l'instant. J'ai l'impression que ça bogue.
ça marche sur le fichier que j'ai envoyé?

merci

 

[Abel]

Re,

Oui. Il fonctionne sur ton exemple que ce soit dans un module standard comme dans la feuille.

Abel.

 

[Guismo]

C'est bon, ça tourne.
Merci.
Guismo 😉