XL 2019 Modifier la couleur d'un bouton

[Yann71]

Bonjour le forum.
J'ai un bouton sur une feuille qui me permet de masquer et d'afficher certaines lignes de ma feuille par mdp celui-ci est : 123
Ce que je recherche, c'est que si le bouton est en mode " afficher " la couleur de celui-ci soit en vert et que si il se trouve
en position "masquer" celui-ci passe au rouge.

 

[Phil69970]

Bonjour @Yann71, le forum

Remplace cette partie de ton code par celle ci :

Private Sub ToggleButton1_Click()
Dim mdp, Sh As Worksheet
Application.ScreenUpdating = 0
mdp = InputBox("Saisir mot de passe")
Rows("47:57").Hidden = ToggleButton1
Columns("Q:BB").Hidden = ToggleButton1
If mdp = "123" Then
    For Each Sh In Worksheets
      If Sh.Name <> "SUIVI" Then Sh.Visible = -ToggleButton1 - 1
    Next
    ToggleButton1.Caption = IIf(ToggleButton1, "Afficher", "Masquer")
    If ToggleButton1.Caption = "Afficher" Then
        ToggleButton1.BackColor = vbGreen
    Else
        ToggleButton1.BackColor = vbRed
    End If
End If
End Sub

Merci de ton retour

@Phil69970

 

[Yann71]

Bonsoir Phil69970, je te remerci pour aide c'est ce que je recherchais. Une idée m'es venu, est-ce quîl est possible d'intégrer ce bouton dans un UserForm.

 

[Phil69970]

Re

Oui c'est surement possible mais créer un userform juste pour afficher ou pas 3 feuilles !!!

@Phil69970

 

[Yann71]

Re

Oui c'est surement possible mais créer un userform juste pour afficher ou pas 3 feuilles !!!

@Phil69970

ça ne serait pas uniquement pour afficher ou masquer certaine ligne, il y aurait d'autres boutons et des TextBox, etc, c'est pour un projet futur