Masquer lignes si couleur dans une cellule

pierrof · 29 Décembre 2009

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 · 29 Décembre 2009

Re : Masquer lignes si couleur dans une cellule

Bonjour

Code:

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

Code:

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 · 29 Décembre 2009

Re : Masquer lignes si couleur dans une cellule

Bonjour Staple1600

Merci c'est parfait

Efgé · 29 Décembre 2009

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

Masquer lignes si couleur dans une cellule

pierrof

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

pierrof

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Masquer lignes si couleur dans une cellule

pierrof

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

pierrof

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency