Macro vba - lien hypertexte et onglet masqué

Résolu/Fermé

alex - 21 juin 2012 à 14:49
alex - 21 juin 2012 à 15:21

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

A voir également:

Macro vba - lien hypertexte et onglet masqué
Appel masqué - Guide
Lien url - Guide
Verifier un lien - Guide
Créer un lien pour partager des photos - Guide
Masque apple - Guide

1 réponse

Réponse 1 / 1

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
21 juin 2012 à 14:52

BOnjour,

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

Cordialement,

alex
21 juin 2012 à 14:56

en gros c'etait ma question...
ou alors je souhaiterais que l'onglet "feuil1" disparaisse lorsque je reviens à ma feuille "accueil". c'est possible ?

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
21 juin 2012 à 14:57

Oui c'est possible attend je vais te donné le code

alex
21 juin 2012 à 14:58

;)

alex
21 juin 2012 à 14:59

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

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
21 juin 2012 à 15:02

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

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

lien copié

Rajout de lien sur plusieurs pages

renommer un lien internet

Discussions similaires

Newsletters