Macro vba - lien hypertexte et onglet masqué

Résolu

alex -
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

Afficher la suite

1 réponse

Réponse 1 / 1
eljojo_e Messages postés 1255 Statut Membre 155

BOnjour,

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

Cordialement,
0
1. alex
  
  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
2. eljojo_e Messages postés 1255 Statut Membre 155
  
  Oui c'est possible attend je vais te donné le code
  
  0
3. alex
  
  ;)
  
  0
4. alex
  
  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
5. eljojo_e Messages postés 1255 Statut Membre 155
  
  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

Macro vba - lien hypertexte et onglet masqué

1 réponse

Discussions similaires

Newsletters