Masquer onglets

[maval]

Bonjour

Sur mon classeur j'ai 7 feuilles et une feuille "Index" sur cette même feuille "Index" j'ai des liens vers les autres feuilles et j'ai un code pour masquer ou afficher les onglets

Mon code:

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "Masquer toutes les feuilles sauf Accueil !" Then
    CommandButton1.Caption = "Afficher tous les Onglets"
   Dim i As Integer
For i = 2 To Sheets.Count
    Sheets(i).Visible = xlSheetHidden
Next i
Else
    CommandButton1.Caption = "Masquer toutes les feuilles sauf Accueil !"

For i = 2 To Sheets.Count
    Sheets(i).Visible = True
Next i
End If
End Sub

Mon problème lorsque je masque les onglets je ne peut plus me servir des liens pour me rendre sur une feuille?

Je vous remercie d'avance

Max

 

[youky(BJ)]

Bonsoir
Une petite proposition
Bruno

 

[maval]

Bonsoir youky

Je te remercie et te souhaite une bonne soirée

Max