cacher lignes ou il y la couleur

[capello12]

bonjour le forum

Je recherche comment cacher les lignes ou il ni a pas de couleur.
Pour un fichier d'absences j'ai mi une page pour vous guider
il y a deux couleur rouge pour absent et bleu pour retard.
je veux pouvoir cacher et r'afficher par un bouton les lignes ou il ni a rien.
J'ai regarder quelques exemples mais je ni arrive pas.

Merci pour vos réponses

 

[DoubleZero]

Re : cacher lignes ou il y la couleur

Bonjour, capello12, le Forum,

Une suggestion en pièce jointe.

A bientôt

P. S. : Bonjour, mapomme

 

[mapomme]

Re : cacher lignes ou il y la couleur

Bonsoir capello12,

Un essai dans le fichier joint. Le code est dans le moduule de code de la feuille "2B":

[code=vb]
Private Sub CommandButton6_Click()
Dim xrg As Range, xcell As Range, n&
Application.ScreenUpdating = False
For Each xcell In Range(Range("a5"), Cells(Rows.Count, "a").End(xlUp))
    Set xrg = Range(Cells(xcell.Row, "b"), Cells(xcell.Row, "ap"))
    n = Application.WorksheetFunction.CountA(xrg)
    xcell.EntireRow.Hidden = (n = 0)
  Next xcell
End Sub

Private Sub CommandButton3_Click()
  Rows.Hidden = False
End Sub

Edit: bonjour DoubleZero , j'avions point actualisé. j'en profite pour te saluer.

 

[capello12]

Re : cacher lignes ou il y la couleur

Bonsoir,

En tout cas merci a vous deux.

Maintenant a moi de le mètre en place.

Merci
A+