Addition textbox

Bonjour,

J'additionne deux textboxs et j'ai met un nombre dedans ok ca fonctionne par contre si je supprime le nombre j'ai une erreur d'execution 13

Private Sub TextBox57_Change()
 TextBox59.Value = Format(CDbl(TextBox57) * Val(TextBox58), "# ##0.00 €")

End Sub

que dois je rajouter pour eviter cette erreur si je supprime mon nombre dans ma texbox merci.

Bonjour,

en effet, si vous supprimer une valeur dans le textbox, alors il y a changement, du coup le code essaie de faire l'opération et se retrouve à calculer des chiffre avec du texte qui vaut rien !!! => erreur !

Soit vous faite un test sur la validité de la valeur du TextBox avec par exemple :

Private Sub TextBox57_Change()
     If TextBox57.Value <>"" And TextBox58.Value <>"" Then
          TextBox59.Value = Format(CDbl(TextBox57) * Val(TextBox58), "# ##0.00 €")
     EndIf
End Sub

Soit vous mettez une gestion d'erreur :

Private Sub TextBox57_Change()
     On Error Resume Next
          TextBox59.Value = Format(CDbl(TextBox57) * Val(TextBox58), "# ##0.00 €")
     On Error Goto 0
End Sub

@ bientôt

LouReeD

Bonjour,

Merci LouReed ca fonctionne parfaitement.

cordialement

Merci @ vous pour vos remerciements !

@ bientôt (sur le forum !)

LouReeD