Microsoft 365 Afficher une feuille masquée selon contenu d'une cellule placée sur une autre feuille

[pat66]

Bonjour le forum,

A l'aide d'un bouton (forme), je souhaiterai afficher ou masquer une feuille dont le nom est précisé dans une cellule de la feuil1

Par exemple :
Feuil1, cellule C13 = "banane", c'est la feuille "banane" qui s'affiche ou se masque
Feuil1, cellule C13 = "pomme", c'est la feuille "pomme" qui s'affiche ou se masque
etc.....

un grand merci pour votre aide

 

[pat66]

re,

Désolé, mais j'ai toujours la même erreur sans avoir à modifier la liste déjà présente dans l'exemple (sans QQQ)
j'espère que vous allez trouver la solution car c'est exactement ce dont j'ai besoin

merci, merci

 

[sylvanu]

Re,
Le problème est présent avec ma PJ ? Chez moi c'est ok.

 

[pat66]

Re,
Le problème est présent avec ma PJ ? Chez moi c'est ok.

Oui même avec la pièce jointe, mais je ferai un autre test demain a la première heure, bonne soirée

Re,
Le problème est présent avec ma PJ ? Chez moi c'est ok.

 

[bakerman2]

Essayez le suivant.

Sub Masquer()
    Dim Liste As Variant, Nom As String, N As Long
    Liste = Range("A20", Range("A41").End(xlUp))
    Nom = [C13]
    For N = LBound(Liste) To UBound(Liste)
        If Evaluate("isref(" & Liste(N, 1) & "!A1)") Then Sheets(Liste(N, 1)).Visible = 0
    Next N
    On Error Resume Next
    Sheets(Nom).Visible = -1
End Sub