XL 2013 Changement de couleur d' un bouton de commande

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

submarine22

XLDnaute Junior
Bonjour à tous
y aurais t il quelqu'un qui pourrait m'aider?
je recherche un code qui permettrai au bouton de commande d'un userform de changer de couleur en fonction d' un niveau de valeur d une cellule.
en gros :
- si la cellule A1 est inferieur à 12 la couleur du bouton est vert.
- si la cellule A1 est égale à 12 et est inferieur à 15 la couleur du bouton est orange.
- si la cellule A1 est égale ou supérieur à 15 la couleur du bouton est rouge.
merci par avance à tous
bon week-end
 
Bonjour Submarine, bonjour le forum,

Essaie avec ce bout de code à placer dans l'UserForm en question :

VB:
Private Sub UserForm_Initialize() 'à l'initlaisation de l'UserForm
Select Case ActiveSheet.Range("A1").Value 'agit en fonction de la valeur de A1
    Case Is < 12 'inférieur à 12
        Me.CommandButton1.BackColor = &HFF00& 'vert
    Case 12 To 15 'de 12 à 15
        Me.CommandButton1.BackColor = &H80FF& 'orange
    Case Is > 15 'supérieur à 15
        Me.CommandButton1.BackColor = &HFF& 'rouge
End Select 'fin de l'action en fonction de la valeur de A1
End Sub
 
Bonjour Submarine, bonjour le forum,

Essaie avec ce bout de code à placer dans l'UserForm en question :

VB:
Private Sub UserForm_Initialize() 'à l'initlaisation de l'UserForm
Select Case ActiveSheet.Range("A1").Value 'agit en fonction de la valeur de A1
    Case Is < 12 'inférieur à 12
        Me.CommandButton1.BackColor = &HFF00& 'vert
    Case 12 To 15 'de 12 à 15
        Me.CommandButton1.BackColor = &H80FF& 'orange
    Case Is > 15 'supérieur à 15
        Me.CommandButton1.BackColor = &HFF& 'rouge
End Select 'fin de l'action en fonction de la valeur de A1
End Sub
Merci beaucoup Robert cela marche super!!!!
Bon week-end
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
56
Affichages
2 K
Réponses
1
Affichages
88
Réponses
32
Affichages
975
Retour