XL 2016 masquer afficher onglets interrupteur

[eastwick]

Bonjour à toutes et tous, ma demande est dans le titre et également dans le fichier joint.
J'avoue que c'est de la coquetterie puisque j'ai déjà 2 boutons reliés aux macros affichant et masquant les onglets.
Mais j'apprécie beaucoup le principe de l'interrupteur !

 

[Fred0o]

Bonjour Eastwick

A mettre dans le code du bouton :

Private Sub ToggleButton1_Click()
    If ActiveSheet.ToggleButton1 Then
        ActiveSheet.ToggleButton1.Caption = "Afficher"
        For Each ws In ActiveWorkbook.Sheets
            If ws.Name <> ActiveSheet.Name Then
                ws.Visible = False
            End If
        Next
    Else
        ActiveSheet.ToggleButton1.Caption = "Masquer"
        For Each ws In ActiveWorkbook.Sheets
            If ws.Name <> ActiveSheet.Name Then
                ws.Visible = True
            End If
        Next
    End If
End Sub

 

[eastwick]

Merci c'est gentil mais j'ai oublié de préciser que d'autres onglets resteront visibles

 

[Fred0o]

Re-Bonjour

Eh bien voici ce qui devrait répondre a ton besoi

Private Sub ToggleButton1_Click()
    If ActiveSheet.ToggleButton1 Then
        ActiveSheet.ToggleButton1.Caption = "Afficher"
        Sheets("B").Visible = False
        Sheets("C").Visible = False
        Sheets("D").Visible = False
        Sheets("E").Visible = False
    Else
        ActiveSheet.ToggleButton1.Caption = "Masquer"
        Sheets("B").Visible = True
        Sheets("C").Visible = True
        Sheets("D").Visible = True
        Sheets("E").Visible = True
    End If
End Sub

n :

 

[eastwick]

Merci bien !

 

[eastwick]

Ca fonctionne nickel. Juste une précision, comment réduire la police sur le toggle button svp ?

 

[Fred0o]

Re-Bonjour

Pour cela, il faut selectionner le ToggleButton dans la feuille "A" : Menu Developpeur, Cliquer sur Mode Edition

puis selectionner le ToggleButton. Ensuite, aller dans l'editeur VBA, puis afficher les proprietes.
Dans les proprietes, selectionner "Font" ou "Police" et cliquer sur les "..." a droite. Ensuite, ajuster la police selon tes desirs.

 

[eastwick]

Merci bien. Forum totalement indispensable à tous les Excelistes, amateurs ou pros !