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

Signaler
Messages postés
46
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
18 décembre 2007
-
Messages postés
6
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
22 juillet 2009
-
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

<!-- / message -->
A voir également:

4 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
6
Salut,

Dans la procédure click de ton bouton, modifies la propriété backcolor de ton bouton..
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
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


 
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017

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é.
Messages postés
6
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
22 juillet 2009

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