Changer la couleur d'un bouton lorsu'on clique dessus.

Question

Bonjour, 
je cherche un truc tout bête a faire mais j'ai du mal à trouver la réponse. En fait j'ai fait des boutons qui renvoent à différentes macros ce que je souheterai c'est que el bouton change de couleur si l'utilisateur a déjà cliqué dessus. Et si le bonton a déjà été cliqué et que l'utilisteur reclique dessus qu'un message apparaisse par exemple "Cliquer sur un autre bouton";
Merci à tous et bon week end à tous

lolokun · Answer

Salut,

Dans la procédure click de ton bouton, modifies la propriété backcolor de ton bouton..

cs_Exploreur · Answer

Salut,

Essaye cela, en mettant la propriété Style de ton bouton sur : Graphical

Private Sub Command1_Click()


' Déclaration
 Dim MyColor As Long


' Test
 If Command1.BackColor = 255Then
    MsgBox "Vous avez déjà cliqué sur ce bouton !"
    Exit Sub
 End If


' Passage de valeur
 MyColor = Command1.BackColor
 
' j'ai cliqué donc je change la couleur
 Command1.BackColor = 255


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

Sechaud · Answer

Tu peux aussi utiliser des CheckBox, mis en Style Graphical, car ils prennent alors la forme de boutons puis utiliser par exemple ce code:

Private Sub Check1_Click()
 If Check1.Value = O Then
   Check1.BackColor = vbGreen
     Else
   Check1.BackColor = vbRed
  End If
End Sub

Comme le bouton sera enfoncé, tu sauras qu'il a déjà été utilisé.

3ziwez · Answer

bonjour le forum, 

Je cherche un code pour changer la couleur de deux boutons quand on clique dessus, 
Je m'explique: je souhaite changer la couleur du 1er bouton quand je clique dessus et l'autre bouton reste inchangé, et lorsque je clique sur l'autre bouton il change de couleur tandis que l'autre reviens a sa couleur d'origine. 

C'est tout bete, mais j'arrive pas a adapter un code que j'ai avec macro, ce code est: 

Private Sub CommandButton2_Click() 'Public
If CommandButton2.BackColor = &H80000013 Then 'Gris
    CommandButton2.BackColor = &HFF& ' rouge

Worksheets("simulation").Columns("J:K").Hidden = False
Worksheets("simulation").Columns("T:Y").Hidden = False



Else
    CommandButton1.BackColor = &H80000013 'Gris



Worksheets("simulation").Columns("J:K").Hidden = False
Worksheets("simulation").Columns("T:Y").Hidden = False


End If
End Sub


<hr />

Private Sub CommandButton1_Click() 'Privé
If CommandButton1.BackColor = &H80000013 Then 'Gris
    CommandButton1.BackColor = &HFF& 'Rouge
Worksheets("simulation").Columns("J:K").Hidden = True
Worksheets("simulation").Columns("T:Y").Hidden = TrueElse
    CommandButton2.BackColor = &H80000013 'Gris

Worksheets("simulation").Columns("J:K").Hidden = True
Worksheets("simulation").Columns("T:Y").Hidden = True
End If
End Sub

Merci d'avance pour votre aide
3ziwez

Changer la couleur d'un bouton lorsu'on clique dessus.

4 réponses

Votre réponse

Discussions similaires