XL 2016 Afficher masquer

sylvanu à dit:

Vous avez bien rectifier If F.Name <> "Feuil1" Then F.Visible = xlSheetHidden
Si c'est le cas, je ne comprends pas.

J'ai l'impression que vos graphiques qui sont du type Graphique structurés et n'acceptent pas les macros accrochées. Mais là je suis un peu sec.

En PJ j'ai changé mon fusil d'épaule. Au lieu de cliquer sur le graphique, on clique sur le bouton "données".
Peut être que cela améliorera les choses.
La macro Worksheet_Activate ne change pas.
L'autre macro est modifiée :

VB:

Sub SheetsManagement()
'------------------------------------------------------
' Remplir Liste avec Nom du rectangle puis nom de la feuille concernée
    Liste = Array("Rectangle 11", "FRUPTURES", _
                "Rectangle 13", "FRUPTURES VISUELLES", _
                "Rectangle 14", "FSANS EMPLACEMENT", _
                "Rectangle 15", "FDECONSIGNES", _
                "Rectangle 16", "FINVENTAIRE", _
                "Rectangle 17", "FSTOCKS", _
                "Rectangle 18", "FPORTEFEUILLE", _
                "Rectangle 19", "FDEMARQUE")
'-------------------------------------------------------
    Nom = Application.Caller
    For i = 0 To UBound(Liste) Step 2
        If Liste(i) = Nom Then
            Sheets(Liste(i + 1)).Visible = True
            Sheets(Liste(i + 1)).Activate
        End If
    Next i
End Sub

si vous rajoutez des feuilles il faut les ajouter dans l' Array avec Nom du bouton et nom de la feuille associée.

Testez et dites moi si c'est mieux.

Cliquez pour agrandir...