Changer couleur bouton
Fermé
melmaeljp
-
30 août 2020 à 15:37
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 - 31 août 2020 à 11:18
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 - 31 août 2020 à 11:18
A voir également:
- Modifier couleur bouton excel
- Modifier liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Comment modifier un pdf - Guide
- Somme si couleur excel - Guide
- Si et excel - Guide
3 réponses
m@rina
Messages postés
21073
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
17 octobre 2024
11 344
Modifié le 30 août 2020 à 15:57
Modifié le 30 août 2020 à 15:57
Bonjour,
Avec quelle appli ? Et quel type de bouton ?
m@rina
Avec quelle appli ? Et quel type de bouton ?
m@rina
m@rina
Messages postés
21073
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
17 octobre 2024
11 344
31 août 2020 à 02:47
31 août 2020 à 02:47
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
Mike-31
Messages postés
18341
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 octobre 2024
5 102
31 août 2020 à 09:36
31 août 2020 à 09:36
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
Mike-31
Messages postés
18341
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 octobre 2024
5 102
31 août 2020 à 11:18
31 août 2020 à 11:18
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é.
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é.
30 août 2020 à 16:13
Sur Excel
Un bouton depuis contrôle formulaire ou bien contrôle active X