XL 2016 Ouvrir une feuille masquée avec un lien hypertexte

berru76

XLDnaute Occasionnel
Bonjour
Mes liens hypertexte fonctionnent si l'onglet n'est pas masqué
Je voudrais pouvoir " vu qu'il y aura une centaine de feuilles " les masquer
Peut on ouvrir une feuille masquée avec un lien hypertexte

Merci pour votre aide

ci -joint un exemple
 

Pièces jointes

  • Licences.xlsm
    455.2 KB · Affichages: 4
Solution
bonsoir
essaie ça

VB:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim nam$
    On Error Resume Next
    nam = Split(Target.SubAddress, "'")(1)
    With Sheets(nam)
        .Visible = True
        .Activate
    End With
    If Err Then MsgBox " il semblerait que cette feuille n'existe pas"
    On Error GoTo 0
End Sub

patricktoulon

XLDnaute Barbatruc
bonsoir
essaie ça

VB:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim nam$
    On Error Resume Next
    nam = Split(Target.SubAddress, "'")(1)
    With Sheets(nam)
        .Visible = True
        .Activate
    End With
    If Err Then MsgBox " il semblerait que cette feuille n'existe pas"
    On Error GoTo 0
End Sub
 

Discussions similaires

Réponses
2
Affichages
361

Statistiques des forums

Discussions
313 226
Messages
2 096 363
Membres
106 585
dernier inscrit
Tortank69