Masquer des lignes par rapport au contenu d'une cellule

[lerouge]

Bonjour,

Alors voila j'aimerais masquer/afficher des lignes selon le texte qu'elles contiennent et selon la validation d'une case à cocher.

Par exemple si la case "activité 1" n'est pas cochée, les lignes qui contiennent le texte "activité 1" doivent être masquée. A l'inverse si la case est cochée les lignes doivent être affichées

Avec ce code ( c'est un début 😛)

If Sheets("activités").Range("B2") = FAUX Then
Sheets("analyse").Cells.Find(What:="activité 1").Select

       Selection.EntireRow.Hidden = True

ça marche un peu mais que pour la première ligne qui contient le texte recherché mais pas pour les autres 😛 et pour afficher de nouveau les lignes ça marche pas.

je vous laisse le fichier pour que ça soit plus clair 😉

Merci d'avance,

 

[phlaurent55]

Re : Masquer des lignes par rapport au contenu d'une cellule

Bonjour lerouge,

avec ceci:

Sub test()
If Sheets("activités").Range("B2") = FAUX Then
For i = 4 To Range("B65535").End(xlUp).Row
    If Cells(i, 2).Value = "activité 1" Then
        Rows(i).Hidden = True
    End If
Next i
Else
For i = 4 To Range("B65535").End(xlUp).Row
    If Cells(i, 2).Value = "activité 1" Then
        Rows(i).Hidden = False
    End If
Next i
End If
End Sub

à améliorer pour les autres activités

à+
Philippe

 

[lerouge]

Re : Masquer des lignes par rapport au contenu d'une cellule

Bonjour Philippe,

Un grand merci ça marche exactement comme je le voulais 😉

Merci d'avoir pris le temps de m'aider c'est fort sympathique 🙂

à la prochaine 😎