Couleur bouton selon valeur cellule

Résolu/Fermé

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - Modifié par surplus le 29/05/2014 à 02:40
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 29 mai 2014 à 15:20

Bonjour,
j'ai un soucis avec un "CommandButton" je lui modifie le texte selon la valeur d'une Cellule D1
qui me donne "FACTURE" ou "DEVIS" selon la valeur de D1
Mais je voudrais lui changer la couleur Rouge ou vert et je bloque je vous mets la macro

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Caption = Range("D1")
Range("D1") = "FACTURE" = CommandButton1.BackColor = RGB(255, 0, 0)
'Range("D1") = "DEVIS" = CommandButton1.BackColor = RGB(200, 0, 0)
End Sub
Merci de votre aide

Slts A bientôt
Surplus

A voir également:

Couleur bouton selon valeur cellule
Excel cellule couleur si condition texte - Guide
Somme si couleur - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Code couleur rj45 - Forum câblage

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 29/05/2014 à 08:18

Bonjour,

Comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Caption = Range("D1")
If Range("D1") = "FACTURE" Then CommandButton1.BackColor = RGB(255, 0, 0)
If Range("D1") = "DEVIS" Then CommandButton1.BackColor = RGB(200, 0, 0)
End Sub

ou encore comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Caption = Range("D1")
If Range("D1") = "FACTURE" Then CommandButton1.BackColor = &HFF&
If Range("D1") = "DEVIS" Then CommandButton1.BackColor = &HC8&
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 2 / 2

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
29 mai 2014 à 15:20

Bonjour
Ca fonctionne très bien
Merci de ton aide
--
Slts A bientôt
Surplus

Discussions similaires

Si couleur, alors...

Excel VBA : Récupérer la valeur d'une cellule

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Bouton ON OFF, O ou I ?

Excel si cellule contient texte alors...

Discussions similaires

Newsletters