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
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
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
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
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.
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.
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
29 mai 2014 à 15:20
Bonjour
Ca fonctionne très bien
Merci de ton aide
--
Slts A bientôt
Surplus
Ca fonctionne très bien
Merci de ton aide
--
Slts A bientôt
Surplus