Erreur code VBA code couleur textbox

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

Bonjour

De cette manière cela fonctionne

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

Merci Bien je n'avais pas pensé à aller à la ligne apres le Then

En je pense à valider