Changer couleur bouton

Signaler
-
Messages postés
17187
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
31 août 2020
 -
Bonjour,


Savez vous comment changer le nom et la couleur d'un bouton au clic ?

Par exemple à chaque clic le statu du bouton et sa couleur changerait ("demande" bleu / "validé" rouge / "annulé" jaune ..)
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
16460
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
31 août 2020
 9 670
Bonjour,

Avec quelle appli ? Et quel type de bouton ?

m@rina

Signaler

Bonjour marina
Sur Excel
Un bouton depuis contrôle formulaire ou bien contrôle active X
Réponse 2 / 3
Messages postés
16460
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
31 août 2020
 9 670
Bonsoir,

J'ai passé ta question dans Excel car Bureautique, c'était trop vague !

Tu insères ton Contrôle ActiveX Bouton de commande, tu double-cliques pour accéder au code et tu colles quelque chose comme ça : 

Private Sub CommandButton1_Click()
Dim couleur
couleur = CommandButton1.BackColor
Select Case couleur
    Case vbBlue
        CommandButton1.BackColor = vbYellow
    Case vbYellow
        CommandButton1.BackColor = vbRed
    Case vbRed
        CommandButton1.BackColor = vbBlue
End Select
End Sub


C'est le principe : si le bouton est bleu, un clic le passe en jaune. Si le bouton est jaune, un clic le passe en rouge etc.
Après tu peux peaufiner avec des couleurs RGB si tu veux des couleurs moins primaires. Idem si tu veux aussi changer la couleur du texte du bouton en fonction du fond. Tu peux aussi modifier le texte.

m@rina
Réponse 3 / 3
Messages postés
17187
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
31 août 2020
 4 197
Bonjour,

Ou comme cela 

Private Sub CommandButton1_Click()
If CommandButton1.BackColor = &HFFFF& Then
CommandButton1.Caption = "Demande"
CommandButton1.BackColor = &H8000000D
ElseIf CommandButton1.BackColor = &H8000000D Then
CommandButton1.Caption = "Validé"
CommandButton1.BackColor = &HFF&
ElseIf CommandButton1.BackColor = &HFF& Then
CommandButton1.Caption = "Annulé"
CommandButton1.BackColor = &HFFFF&
End If
End Sub
Signaler
Messages postés
17187
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
31 août 2020
 4 197
Re,

après réflexion, je ne vois pas l'intérêt et surtout l'utilité de ce bouton avec trois propositions, une simple liste de validation avec les trois choix, ce qui déclencherait une des trois actions serait à mon sens plus adapté.
Répondre Posez votre question