Masquer lignes si couleur dans une cellule

[pierrof]

Bonjour
J'ai réaliser une macro pour compter le nombre de cellule colorées d'une plage.
J'aimerai que cette macro puisse masquer toutes les lignes qui ne dispose pas de cellules colorée afin de mettre en évidence les lignes cote à cote.

Je vous laisse un fichier

Merci d'avance de vos explication

 

[Staple1600]

Re : Masquer lignes si couleur dans une cellule

Bonjour

Sub masquesanscouleurs()
For i = [K65536].End(xlUp).Row To 2 Step -1
If Cells(i, "K").Interior.ColorIndex = xlNone Then
Rows(i).Hidden = True
End If
Next
End Sub

et son contraire

Sub masqueaveccouleurs()
For i = [K65536].End(xlUp).Row To 2 Step -1
If Not Cells(i, "K").Interior.ColorIndex = xlNone Then
Rows(i).Hidden = True
End If
Next
End Sub

 

[pierrof]

Re : Masquer lignes si couleur dans une cellule

Bonjour Staple1600

Merci c'est parfait

 

[Efgé]

Re : Masquer lignes si couleur dans une cellule

Bonjour,
Comme je l'ai fait je le post:
Masquer les lignes dans la même macro que la colorisation des cellules (proposée hier dans un autre de vos fil et restée sans retour...)
Cordialement