Lien hypertexte situé sur rectangle appelant feuille masquée

Bonjour le forum,

Pour certain de mes classeurs, j'utilise un menu avec des liens hypertextes (situés sur des mots) qui ouvrent des feuilles masquées et qui les referment quand je retourne sur le menu en utilisant la macro ci-dessous.

Ce que je cherche à faire, c'est la même chose mais avec des liens qui se trouvent sur des rectangles à coins arrondis et bien sûr la macro ne fonctionne plus.

Private Const ListeFeuillesCachees As String = "?Janvier?Février?Mars?Avril?Mai?Juin?Juillet?Août?Septembre?Octobre?Novembre?Décembre?"

 Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
     'si la feuille ne fait pas partie des feuilles à cacher, quitter la macro
     If InStr(ListeFeuillesCachees, "?" & Sh.Name & "?") = 0 Then Exit Sub
     'masquer la feuille
     Sh.Visible = xlSheetHidden
 End Sub

 Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
 Dim nomFeuille As String

     'récupérer le nom de la feuille pointée par le lien hypertexte
      nomFeuille = Application.Range(Target.SubAddress).Parent.Name

     'si la feuille fait partie des feuilles cachées
     If InStr(ListeFeuillesCachees, "?" & nomFeuille & "?") <> 0 Then
         'afficher la feuille
         On Error Resume Next
          Application.Range(Target.SubAddress).Parent.Visible = xlSheetVisible
         On Error GoTo 0
     End If

     'suivre le lien hypertexte
     Application.EnableEvents = False
     Target.Follow
     Application.EnableEvents = True
 End Sub

D'avance merci de me dire ce que je dois changer pour que celà fonctionne.

Bonjour Libellule 85 le forum

il faut bien sur que ton lien hypertexte soit dans le rectangle est-ce le cas??

et cette ligne là permet de sélectionner la feuille et de la rendre visible en cliquant sur une cellule !!!!! et non sur ton carré

Application.Range(Target.SubAddress).Parent.Visible = xlSheetVisible

le plus simple passe ton fichier

a+

papou

Bonjour Paritec,

Tout d'abord merci pour ta réponse.

J'ai bien mis le lien sur le texte à l'intérieur du rectangle.

ci joins un fichier

D'avance merci pour ta réponse

Bonjour

Bien que je n'ai pas de solution à ton souhait

Le lien Hypertexte prenant le pas sur la macro donc impossible (d'après moi) d'intercepter le clic sur la forme

Je te propose une idée : Suppression des lien Hypertextes pour utiliser le nom marqué dans la forme

A voir

Bonjour Banzai64,

Je te remercie beaucoup pour ta réponse, c'est exactement ce que je voulais même si ce n'est pas par lien hypertexte, le principal c'était d'afficher la feuille correspondante au rectangle et qu'elle se remasque au retour sur le menu.

Encore merci

et bon après midi