Bonjour,
J'ai un bug division par zero quand mon programme arrive a un test ou il ne fait que changer la couleur de ma combo box. Est ce que quelqu'un peut m'expliqué se fénomène?
Voici mon code:
J'ai un bug division par zero quand mon programme arrive a un test ou il ne fait que changer la couleur de ma combo box. Est ce que quelqu'un peut m'expliqué se fénomène?
Voici mon code:
Code:
Private Sub ComboBox4_Change()
Dim a As String
Dim b As Double
a = ComboBox4.Value
If ComboBox4.Value = "" Then
Exit Sub
Else
If IsNumeric(ComboBox4.Value) Then
b = CDbl(Replace(a, ".", ","))
Else
ComboBox4.Value = ""
b = Me.Range("c18")
End If
End If
Me.Range("K6") = b
[COLOR="Red"]Ligne ou il y a le bug[/COLOR] If b >= Me.Range("C18") Then
ComboBox4.BackColor = RGB(204, 0, 0) / rouge
ComboBox4.ForeColor = RGB(255, 255, 255) / blanc
Else
ComboBox4.BackColor = RGB(0, 0, 0) / jaune
ComboBox4.ForeColor = RGB(0, 0, 0) / noire
End If
ComboBox5.ForeColor = RGB(220, 220, 220)
ComboBox5.Value = (Me.Range("c18") - CInt(b))