Division dans une textbox

Salut au forum,

Dans l’exécution de mon projet, lorsque par inattention je saisie le chiffre 0 dans la première TextBox, il y a une erreur qui affiche et qui dit : (Erreur d’exécution ‘6’ Dépassement de capacité)

Je ne sais comment faire. Pouvez-vous me montrer un code pour ne plus afficher d’erreur ?

Merci à tous

Hello,

Tu peux tu utiliser une condition quand la somme de tes valeurs est égale à 0. Essaie quelque chose comme ça :

Private Sub TB1_Change()

If Val(TB1) + Val(TB2) + Val(TB3) = 0 then
TB4 = "n/a"
TextBox1 = "n/a"
Else TB4 = Val(TB1) + Val(TB2) + Val(TB3)
TextBox1 = Val(TB1 * 100) / Val(TB4)
End If
End Sub

Merci Ironik,

ton code est excellent. Merci à toi et à tout le forum.

Très respectueusement.