XL 2016 Macro-supprimer lignes sans couleur

JHA à dit:

Bonjour à tous,

Tu peux aussi Filtrer par couleur (A voir avec excel2016) et choisir "aucun remplissage"
Tu sélectionnes et supprimes les lignes sans couleur.

JHA

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Telma,
Un essai en PJ avec :

VB:

Sub Nettoie()
Application.ScreenUpdating = False
For L = Range("A65500").End(xlUp).Row To 2 Step -1
    If Cells(L, "A").Interior.Color <> vbWhite Then Cells(L, "A").EntireRow.Delete
    If Cells(L, "A") = "" Then Cells(L, "A").EntireRow.Delete
Next L
End Sub

J'en ai profité aussi pour supprimer les lignes vides.

Cliquez pour agrandir...

sylvanu à dit:

Oups ! Petite incompréhension.
il suffit de remplacer "<>" par "=" 🙂

Cliquez pour agrandir...