Affiche onglets en fonction valeur cellule

bonjour à ttes et tous,

dans le fichier ci-joint, toutes les feuilles portent une valeur en cellule "P3" ( ici pour l'exemple AA-BB- ou CC)

je voudrais qu'en cliquant sur le bouton rouge, cela m'affiche tous les onglets où il y a par exemple "AA"

j'ai essayé mais en vain !

Je compte donc une fois de plus sur vos lumières.

Meci

@+

10modele.xlsm (385.90 Ko)

Bonjour,

Private Sub CommandButton2_Click()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        Select Case ws.Name
            Case "Accueil", "modèle"
            Case Else
                ws.Visible = xlSheetVisible
                If ws.Range("P3") <> "AA" Then ws.Visible = xlSheetVeryHidden
        End Select
    Next ws
End Sub

Cordialement.

Bonjour,

Une piste :

Private Sub CommandButton2_Click()

    Dim Fe As Worksheet

    For Each Fe In Worksheets

         Fe.Visible = Not Fe.Range("P3").Value = "AA"

    Next Fe

End Sub

re,

Un grand merci à toi MFerrand pour ta solution.

C'est exactement ce que je voulais.

Merci encore.

Rechercher des sujets similaires à "affiche onglets fonction valeur"