XL 2010 textbox condition

kaid · 7 Mai 2017

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 · 8 Mai 2017

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 · 8 Mai 2017

Bonjour kaid, Eric 45,

Code:

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 · 9 Mai 2017

Bonsoir et merci beaucoup

XL 2010 textbox condition

kaid

XLDnaute Occasionnel

Eric 45

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

kaid

XLDnaute Occasionnel

Discussions similaires

XL 2010 textbox condition

kaid

XLDnaute Occasionnel

Eric 45

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

kaid

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency