Eviter bog si textbox vide

[sev]

Bonsoir le forum,
lorsque je saisie une valeure dans un textbox4 elle se convertie normalement en textbox13 mais si je supprime cette valeure une invit de débogage s'affiche.
Comment l'éviter ? Code ci après :

Private Sub TextBox4_Change()
TextBox13 = Format(TextBox4 * 655657 / 10000000, "# #00.00 Francs")
End Sub



Merci à vous

 

[Banzai64]

Re : Eviter bog si textbox vide

Bonsoir

Un essai

Private Sub TextBox4_Change()
If TextBox4 <> "" Then
TextBox13 = Format(TextBox4 * 655657 / 10000000, "# #00.00 Francs")
End If
End Sub

 

[sev]

Re : Eviter bog si textbox vide

Merci beaucoup , ça me convient