Lien Hyper vers feuille masquée

Bonjour

Problème: Liste déroulante, lien hypertexte et feuilles masquées

Un fichier avec une centaine d'onglets masqués. Seulle la feuille contenant la liste de choix est visible. La liste déroulante permet de créer un lien hypertexte pour sélectionner l'onglet choisi lorsque celui-ci n'est pas masqué.

Quand la feuille est masquée, comment modifier le code pour la rendre visible et rendre le lien hypertexte opérationnel?

Code actuel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
Chr(39) & Sheets(Target.Value).Name & Chr(39) & "!A1", TextToDisplay:=Target.Value
End If
End Sub

Un fichier exemple avec 3 feuilles masquées.

Merci

Bonjour Amadeus,

Si pas si c'est que tu cherche... à tester,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long, B As Boolean
    If Target.Address = "$F$5" Then
        Lig = Range("A10000").End(xlUp).Row + 1
        Application.ScreenUpdating = False
        If Sheets(Target.Value).Visible = False Then
            B = True: Sheets(Target.Value).Visible = True
        End If
        ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Lig), Address:="", SubAddress:= _
        Target.Value & "!A1", TextToDisplay:=Target.Value & "!A1"
        Sheets(Target.Value).Visible = Not B
        Application.ScreenUpdating = True
    End If
End Sub

Je dois dire que je n'ai pas bien compris la finalité.

A+

Bonjour

lermite, merci, mais ce n'est pas ça.

Je voudrais que quand je sélectionnes Bordeaux, Toulouse dans la liste déroulante en F5, la feuille choisie devienne visible.

Cordialement

Justement c'est pour cela que je ne voyais pas bien la finalité, suffit de mettre la feuille visible ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$5" Then
        With Sheets(Target.Value)
            .Visible = True
            .Select
        End With
    End If
End Sub

Suis probablement encore à côté de la plaque..

A+

Bonjour

Pas tant à côté que cela, il faut rajouter la sélection de feuille.

Et, du fait, le lien hypertexte ne sert plus à rien.

Je m'en suis tiré avec

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Sh As String
  If Not Intersect(Target, Range("F5")) Is Nothing Then
    Sh = ActiveSheet.Range("F5").Value
    Worksheets(Sh).Visible = True
    Worksheets(Sh).Select
  End If
End Sub

Merci

Cordialement