calcul dans textbox

[mavean]

Bonjour

Dans un Userform avec des Textbox, je fait des calculs avec le contenu des textbox.
Cela marche pour :
Me.TextBox13 = CDbl(Me.TextBox3) * CDbl(Me.TextBox4)
xx = Me.TextBox13.Value ' cette ligne est pour la suite
Parce que TB3 et TB4 sont toujours supérieur à 0

Mais la ligne suivante :
Me.TextBox15 = xx * CDbl(Me.TextBox9)
Ne fonctionne pas si TB9 est une cellule vide

Comment faire pour que cela marche.

Merci et bon week end

 

[job75]

Bonjour mavean,

Pour commencer, les CDbl sont inutiles si le texte d'une TextBox est Numeric (avec le séparateur décimal de l'ordi).

Pour finir, une méthode très simple :

TextBox15 = ""
On Error Resume Next
TextBox15 = xx * TextBox9

A+