XL 2019 Modifier la couleur d'un bouton

Yann71 · 19 Mars 2021

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 · 19 Mars 2021

Bonjour @Yann71, le forum

Remplace cette partie de ton code par celle ci :

VB:

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 · 19 Mars 2021

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 · 19 Mars 2021

Re

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

@Phil69970

Yann71 · 19 Mars 2021

Phil69970 à dit:
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

XL 2019 Modifier la couleur d'un bouton

Yann71

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Discussions similaires