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