Changer couleur bouton
melmaeljp
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
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 ..)
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 ..)
A voir également:
- Changer couleur bouton excel
- Changer dns - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Somme si couleur excel - Guide
- Word et excel gratuit - Guide
3 réponses
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 :
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
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
Bonjour,
Ou comme cela
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
Sur Excel
Un bouton depuis contrôle formulaire ou bien contrôle active X