XL 2016 Afficher masquer

[richardlion]

Bonjour à tous
J’ai un fichier Excel avec des graphiques
J’ai créer un lien hypertexte pour chaque graph qui amène à plusieurs feuilles qui donne le détail des chiffres
Sûr chaque feuille il y a un lien qui me ramène au graph
Je souhaiterais que ces feuilles n’appairaissenr qu’en cliquant sur le lien et quelle disparaisse en cliquant sur l’autre lien
Merci à vous pour vos bonnes idee

 

[sylvanu]

Ca concernait le fichier précédent. Si vous aviez renommé la feuille "FGraphique 32" en Feuil1 il fallait modifier la macro.

Le principal est que la macro #14 marche. Vous avez une solution.
Ce serait donc bien lié aux graphiques structurés.

 

[richardlion]

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 :

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.

Bonjour
je vous dérange encore une fois mais je ne veux pas faire d'erreur
si je rajoute une feuille il faut absolument qu'elle soit a la suite de la dernière
et mon rectangle de données doit être affecté a la macro c'est ça
je ne dois pas la lier a un lien hypertexte?

 

[richardlion]

Bonsoir, finalement j'ai trouve la solution
désolé pour le dérangement
merci