Division par zero lors d'un changement de couleur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Luminou

XLDnaute Junior
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:
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))
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
243
Réponses
2
Affichages
461
Réponses
3
Affichages
508
Réponses
0
Affichages
460
Retour