XL 2016 Macro-supprimer lignes sans couleur

[Telma DS]

Hello,

N'ayant jamais fait de macro je cherche de l'aide pour demander à Excel de supprimer les cellules qui n'ont aucune couleur dans le fichier ci-joint.

Merci d'avance pour votre aide.

 

[sylvanu]

Bonjour Telma,
Un essai en PJ avec :

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.

 

[JHA]

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

 

[Telma DS]

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

Merci pour la proposition, j'y ai en effet pensé mais il s'agira en fait d'une première étape dans ma macro finale.

 

[Telma DS]

Bonjour Telma,
Un essai en PJ avec :

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.

merci bcp
quand j'ouvre votre fichier et utilise la macro en place ça supprime les lignes en gris au lieu de celles sans couleur
c'est possible qu'il y aie encore un petit détail à corriger?

 

[sylvanu]

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

 

[Telma DS]

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

génial, merci