lien hypertexte et onglets cacher

[titooooo]

bonjour

j'ai un fichier avec plusieurs feuilles
et une feuille menu
mes feuilles sont masquées sauf menu
je veux si je clique sur un lien la feuille caché s'affiche a coté de menu

et une fois je reclique sur la feuille menu seul l’onglet menu s'affiche et l'onglet qui etais visible se cache

j'ai trouvé un code mais j'ai pas su l'adapter

code a mettre sur la feuille 2

Private Sub Worksheet_Deactivate()
Sheets("Feuil2").Visible = False
End Sub



et voici le code de thisworkbook

Private Sub Workbook_Open()
Sheets("Feuil2").Visible = False
End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim ShArray() As String, f As String, f2 As String
f = Target.SubAddress
ShArray() = Split(f, "!")
f2 = ShArray(0)
If f2 = "Feuil2" Then
Sheets(f2).Visible = True
Sheets(f2).Activate
End If
End Sub

 

[mapomme]

Bonsoir @titooooo,

Voir fichier joint.
Les codes sont dans le module de code de la feuille "menu" et dans le module de code de ThisWorkbook.

 

[titooooo]

meri mapomme

autre astues comment j fais pour ajouter dautre onglets et signets stp

 

[mapomme]

Re,

Quand on active la feuille Menu, les autres feuilles sont cachées et on ne peut pas établir de liens vers une feuille cachée.

• activer la feuille menu
• créer une nouvelle feuille
  
• activer la feuille menu (les autres feuilles sont donc cachés)
• saisir dans la cellule désirée le texte de l'hyperlien
• aller dans l'environnement VBA
• dans la fenêtre de projet, sélectionner la feuille nouvellement insérée
• tapez sur la touche de fonction F4 -> la fenêtre des propriétés s'affiche
• changer la propriété Visible de 0 - xlSheetHidden à 1- xlSheetVisible
• la nouvelle feuille nouvellement créée s'affiche

vous pouvez maintenant ajouter le lien

ERRATA : notez que le fichier V1 présente une erreur. Si des feuilles ont un nom comprenant des espaces, alors la V1 coince. Préférez la V2 jointe ci-dessous dans ce message.

 

[titooooo]

merci énormément