XL 2013 Changement de couleur d' un bouton de commande

submarine22 · 25 Février 2022

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 · 25 Février 2022

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 · 25 Février 2022

Robert à dit:

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

XL 2013 Changement de couleur d' un bouton de commande

submarine22

XLDnaute Junior

Robert

XLDnaute Barbatruc

submarine22

XLDnaute Junior

Discussions similaires