XL 2013 Changement de couleur d' un bouton de commande

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
 

Robert

XLDnaute Barbatruc
Repose en paix
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
 

submarine22

XLDnaute Junior
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
 

Discussions similaires

Réponses
1
Affichages
139
Réponses
30
Affichages
1 K

Statistiques des forums

Discussions
311 705
Messages
2 081 709
Membres
101 798
dernier inscrit
Rachade