Bonjour à tous et toutes,
Voici le code de ma textbox qui doit permettre de changer la couleur de fond de ma textbox suivant la valeur. Je me suis servi de codes trouvés sur internet. Or cela ne fonctionne pas. Quelqu'un pourrait t'il m'aider ?
'risquenu étant le nom de ma textbox
Private Sub risquenu_Change()
If Val(risquenu) >= 1 And Val(risquenu) <= 2 Then risquenu.BackColor = RGB(58, 157, 35) 'couleur verte
ElseIf Val(risquenu) > 2 And Val(risquenu) <= 4 Then risquenu.BackColor = RGB(255, 255, 0) 'couleur jaune
ElseIf Val(risquenu) > 4 And Val(risquenu) <= 9 Then risquenu.BackColor = RGB(237, 127, 16) 'couleur orange
ElseIf Val(risquenu) > 9 And Val(risquenu) <= 16 Then risquenu.BackColor = RGB(255, 255, 0) 'couleur rouge
End If
End Sub