Macro vba - lien hypertexte et onglet masqué

Résolu/Fermé
Signaler
-
 alex -
Bonjour,

j'ai une feuille excel appelé "accueil" avec des liens hypertexte pour "feuil1"et "feuil2"
j'ai masqué ces 2 feuilles et du coup mes liens ne marchent plus

j'ai trouvé cette macro pour les faire réapparaitre mais pas disparaitre donc je voudrais que la feuille s'ouvre mais sans que l'onglet des feuilles apparaisse. merci d'avance


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
With Sheets(Split(Target.SubAddress, "!")(0))
If .Visible = False Then
.Visible = True
Application.Goto .Range(Split(Target.SubAddress, "!")(1))
End If
End With
End Sub

1 réponse

Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
135
BOnjour,

Tu ne peux pas ouvrir une feuille sans que l'onglet apparaisse....
Ou alors j'ai mal compris.

Cordialement,
0
en gros c'etait ma question...
ou alors je souhaiterais que l'onglet "feuil1" disparaisse lorsque je reviens à ma feuille "accueil". c'est possible ?
0
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
135
Oui c'est possible attend je vais te donné le code
0
comme je l'ai mis, j'arrive à la faire apparaitre avec ce code, mais apres je sais pas le remasquer :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
With Sheets(Split(Target.SubAddress, "!")(0))
If .Visible = False Then
.Visible = True
Application.Goto .Range(Split(Target.SubAddress, "!")(1))
End If
End With
End Sub
0
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
135
Tu met dans le module correspond à ta feuille, "accueil" (pas un module basique) ce code :

Private Sub Worksheet_Activate()

If Sheets("Feuil1").Visible = True Then Sheets("Feuil1").Visible = False

End Sub
0