Accès onglets masqués par liens hypertexte

Bonjour,

Je cherche à accéder à tous mes onglets masqués (55) à partir du seul onglet visible "o" qui contient les liens hypertexte vers tous les onglets masqués pour les ouvrir à la demande. Les onglets ainsi ouverts devraient le rester jusqu'à l'enregistrement et la fermeture du fichier. A la réouverture du fichier, seul l'onglet "o" est visible et ainsi de suite.

Merci pour votre précieuse collaboration

Fat

Bonjour

Tu devrais joindre ton fichier…

Bye !

Bonsoir,

Je considère que joindre un fichier dans ce cas précis ne sert pas beaucoup. Le problème est plus théorique et à caractère général et peut s’appliquer à n’importe quel fichier comportant beaucoup d’onglets.

Il y a l’onglet « O » qui est toujours visible et qui comporte 55 liens hypertexte pour pouvoir ouvrir au choix un des 55 onglets masqués en fonction des besoins. Les fichiers ouverts se referment automatiquement à l’enregistrement du fichier

Voilà ! Peut être que c’est plus clair maintenant.

Cordialement

Fat

Bonjour

Code de la Feuille O

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim s As String
    Dim cellules As String
    Dim Feuille As String
    Dim lienSplit() As String

    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

Code dans ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Worksheets("O").Visible = True
For i = 2 To Worksheets.Count
Worksheets(i).Visible = False
Next
Me.Save
End Sub

Cordialement

Bonsoir le Forum,

Je connais Amadéus de réputation, et là, il m'a donné une solution sur mesure à mon problème.

J'ai reporté les 2 macros proposées sur mon fichier, et ça fonctionne trés bien, comme je l'avais souhaité.

Merci Amadéus avec mes cordiales salutations ainsi qu'à tout le Forum.

Fat