Supprimer un ligne si une cellule est coloriée

[jeff1494]

Re Bonjour à tous;
Je progresse sur mes macros, mais j'ai encore besoin de vos lumières (ce n'est certainement pas fini, l'apprentissage est long).
Voila j'ai une feuille avec la colonne A remplie de la ligne 1 à la ligne 200. Certaines des cellules de la colonne A sont coloriées, ou vides, ou contiennent le mot "Désignations".
Le but du jeu est de supprimer les lignes remplissant UNE des 3 conditions énoncées ci-dessus.
Quelqu'un pourrait-il m'explique comment faire par macro.
D'avance Merci et bonne soirée à tous.

 

[juju_69]

Re : Supprimer un ligne si une cellule est coloriée

Hello,

Essaie çà :

Sub Supp()
Dim i

For i = [A250].End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "" Or Cells(i, 1).Interior.ColorIndex <> xlNone Or Cells(i, 1).Value = "Désignations" Then
Rows(i).Delete
End If
Next i

End Sub

@ +

Juju

 

[jeff1494]

Re : Supprimer un ligne si une cellule est coloriée

Salut Juju_69;
Je te remercie pour ta réponse, en effet cela solutionne mon problème.
A+