Ouvrir ou masquer un onglet avec lien ou bouton

Bonjour à tous.

J'ai créé un onglet "Lisez-moi !" qui permet l'accès direct aux divers onglets de mon classeur.

Comme il y a beaucoup d'onglet, Il aura aussi pour fonction de masquer des onglets ouverts.

Ces fonctions sont présentes dans Excel mais un lien simple ne permet pas d'ouvrir un onglet masqué.

Il semblerait que cela est possible en programmation VBA mais je suis une truffe en codage.

Je joins mon fichier exemple à ce ticket.

Merci pour votre aide.

François

Si tu ne veux pas faire apparaitre les onglets pas besoin de dix milles codes.

Option avancées excel décocher afficher onglet.

Tu peux facilement insérer des liens hypertexte pour te rendre sur un onglet par contre il ne faut pas oublier d'ajouter dans tous tes

onglet une flêche de retour au menu principal.

Pour le codage vba ce qui pourrait être utilie c'est d'utiliser l'évenement workbook before close ou open pour automatiser

le retour au menu principal.

Merci Xmenpl,

Cette solution ne me convient pas car je souhaite conserver certains onglets en pied de page.

Je suis arrivé à paramétrer l'ouverture et la fermeture de tous les onglets en VBA.

Cependant, il ne reste plus qu'à paramétrer l'ouverture ou la fermeture par onglet.

Je remets un exemple dans ce ticket.

Merci encore pour votre aide.

François

Bonjour,

Je suis passé par des cases à cocher "Activex" avec ce code sur chaque bouton :

Private Sub CheckBox1_Click()
    If CheckBox1 Then
        Sheets("Entrées").Visible = True
    Else

        Sheets("Entrées").Visible = False
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2 Then
        Sheets("Dépenses").Visible = True
    Else

        Sheets("Dépenses").Visible = False
    End If
End Sub

Private Sub CheckBox3_Click()
    If CheckBox3 Then
        Sheets("Graphiques").Visible = True
    Else

        Sheets("Graphiques").Visible = False
    End If
End Sub

Merci pour ce complément.

Les cases à cocher sont Super ! Je vais les utiliser pour masquer certaines pages.

Il ne manque plus que les liens pour ouvrir des pages spécifiques.

• LES ENTREES
• LES DEPENSES
• LES GRAPHIQUES

Merci encore.

François

Tout simplement avec un lien hypertext :

• Clic droit sur la cellule
• Lien Hypertext
• Emplacement dans le document
• Choisir la feuille à ouvrir

Le fichier est modifié en conséquence

Bonsoir Tchotcho,

Juste le temps de poster pour ne pas trop rater le match

Ci-joint un exemple possible pour ton besoin

Bonne continuation.

Bonsoir

A voir aussi avec les codename

Sub MisePage()
Dim I&
Application.ScreenUpdating = False
    For I = 1 To Sheets.Count
        Select Case Sheets(I).Name
            Case Feuil1.Name
                Sheets(I).Visible = -1
            Case Else
                Sheets(I).Visible = 2
        End Select
    Next I
Feuil1.Application.Goto [A1], True
Feuil1.ScrollArea = "A1"
End Sub

Sub Decache()
Dim Feuil As Object
Application.ScreenUpdating = False
   For Each Feuil In Worksheets
        Feuil.Visible = -1
   Next
Feuil1.ScrollArea = ""
End Sub

A+

Maurice

Merci à tous pour vos solutions.

J'ai fait un Mix de vos idées et j'en ai fait un fichier super opérationnel.

Je le joins à ce ticket.

Merci encore et bonne route.

François

Bonjour

j'aime pas sa bug

voila un nouveau fichier

a toi de voir et a tester

A+

Maurice

Bonjour archer,

Merci, j'ai appliqué quelques corrections.

Bonne fin de journée.

François