Division par zero lors d'un changement de couleur

[Luminou]

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:

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))

 

[Luminou]

Re : Division par zero lors d'un changement de couleur

heu c'est bon j'ai trouver, c'était le commantaire faut mettre ' et pas /
(honte sur moi -_-!)