Macro vba - lien hypertexte et onglet masqué
Résolu
alex
-
alex -
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
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é
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Numero masque - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
ou alors je souhaiterais que l'onglet "feuil1" disparaisse lorsque je reviens à ma feuille "accueil". c'est possible ?
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
Private Sub Worksheet_Activate()
If Sheets("Feuil1").Visible = True Then Sheets("Feuil1").Visible = False
End Sub