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

P

pat66

XLDnaute Impliqué

• Hier à 21:55

• #16

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Hier à 22:22

• #17

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• Hier à 23:29

• #18

sylvanu à dit:

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

Cliquez pour agrandir...

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

sylvanu à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

B

bakerman2

XLDnaute Nouveau

• Aujourd'hui à 01:02

• #19

Essayez le suivant.

VB:

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

 

Vote positif 0 Vote négatif