XL 2016 masquer afficher onglets interrupteur

eastwick

XLDnaute Impliqué
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 !
 

Pièces jointes

  • Classeur1.xlsm
    14.7 KB · Affichages: 23

Fred0o

XLDnaute Barbatruc
Bonjour Eastwick

A mettre dans le code du bouton :
VB:
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
 
Dernière édition:

Fred0o

XLDnaute Barbatruc
Re-Bonjour

Eh bien voici ce qui devrait répondre a ton besoi
VB:
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 :
 

Fred0o

XLDnaute Barbatruc
Re-Bonjour

Pour cela, il faut selectionner le ToggleButton dans la feuille "A" : Menu Developpeur, Cliquer sur Mode Edition
1619168084444.png
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.

1619168019043.png
 

Discussions similaires

Réponses
16
Affichages
1 K

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib