Public strLinkSheet As Worksheet
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
' Suivez Le Lien Hypertexte Pour Ouvrir La Feuille Cachée, Puis Masquez-La À Nouveau Avec Le Code VBA
' classeur contenant plusieurs onglets qui sont masqués
' liens hypertexte qui renvoie automatiquement au bon onglet VIA (table des matières)
' VBA Ouvre l'onglet masqué lorsque clique sur le lien
' Avec retourne à la (table des matières)
' Puis l'onglet est masqué de nouveau.
'
' Information : Nom de l'onglet doit correspondre au mot dans la (table des matières)
' Msgbox Information si différence entre les deux Noms !
Application.ScreenUpdating = False
On Error Resume Next
If Target.Parent.Value <> Split(Target.SubAddress, "!")(0) Then
MsgBox "Nom de l'onglet ne correspondre pas" _
& vbCrLf & "au mot dans la (table des matières)" _
& vbCrLf & "Feuille : " _
& vbCrLf & " - strLinkSheet : " & Target.Parent.Value _
& vbCrLf & "Différent de : " _
& vbCrLf & " - table des matières : " & Split(Target.SubAddress, "!")(0)
Else
Set strLinkSheet = Worksheets(Target.Parent.Value)
End If
On Error GoTo 0
If Not strLinkSheet Is Nothing Then
strLinkSheet.Visible = True
strLinkSheet.Select
End If
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
If Not strLinkSheet Is Nothing Then
strLinkSheet.Visible = False
Set strLinkSheet = Nothing
End If
End Sub