XL 2010 textbox condition

[kaid]

slut
j'ai 3 textbox

textbox3 :montant recouvre
textbox7 :montant indemnise
textbox8 :"non" ou "oui"
textbox9 :situation

j'ai fait ce code mais ça marche pas pour les 3 conditions:

Private Sub TextBox3_Change()
If TextBox3 = 0 Then
TextBox8 = "non"
TextBox9 = "A Recouvrir"
TextBox9.BackColor = vbRed
End If

If TextBox3 >= TextBox7 Then
TextBox8 = "oui"
TextBox9 = "Restitution"
TextBox9.BackColor = vbWhite
End If

If TextBox3 < TextBox7 Then
TextBox8 = "partiel"
TextBox9 = "Montant partiel"
TextBox9.BackColor = vbGreen
End If

End Sub

 

[Eric 45]

Bonjour à tous
Bonjour Kaid

Tu dis : " j'ai fait ce code mais ça marche pas pour les 3 conditions: ". Qu'est ce qui ne marche pas ? Quand TextBox3=0 cela passe au vert au lieu de rouge ? Regarde et décortique ligne par ligne la 3ème condition, et positionne-la devant la première.

Eric

 

[job75]

Bonjour kaid, Eric 45,

Private Sub TextBox3_Change()
If Val(Replace(TextBox3, ",", ".")) = 0 Then
  TextBox8 = "non"
  TextBox9 = "A Recouvrir"
  TextBox9.BackColor = vbRed
ElseIf Val(Replace(TextBox3, ",", ".")) >= Val(Replace(TextBox7, ",", ".")) Then
  TextBox8 = "oui"
  TextBox9 = "Restitution"
  TextBox9.BackColor = vbWhite
Else
  TextBox8 = "partiel"
  TextBox9 = "Montant partiel"
  TextBox9.BackColor = vbGreen
End If
End Sub

Le séparateur décimal peut être la virgule ou le point.

A+

 

[kaid]

Bonsoir et merci beaucoup