Bonjour à tous,
Pourriez vous me donner l'équivalent de ce code qui s'applique sur une feuille spécifique, mais je voudrait l'avoir sur thisworbook pour qu'il soit accessible sur toutes les feuilles du fichier :
Il permet d'accéder a des liens sur des onglets masqués,
Merci d'avance,
Cordialement,
Pourriez vous me donner l'équivalent de ce code qui s'applique sur une feuille spécifique, mais je voudrait l'avoir sur thisworbook pour qu'il soit accessible sur toutes les feuilles du fichier :
VB:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
Dim cellules As String
Dim Feuille As String
Dim lienSplit() As String
Application.ScreenUpdating = False
lienSplit = Split(Target.SubAddress, "!")
If UBound(lienSplit) >= 1 Then
Feuille = Replace(lienSplit(0), "'", "")
cellules = lienSplit(1)
With Sheets(Feuille)
If .Visible = False Then
.Visible = True
Application.GoTo .Range(cellules)
End If
End With
Else
MsgBox ("Lien non valide... " & Target.SubAddress)
End If
End Sub
Il permet d'accéder a des liens sur des onglets masqués,
Merci d'avance,
Cordialement,