TextBox: Valeur O si rien afterupdate

[Provence Vintage]

Bonjour le Forum,


J'ai le code suivant qui me permet après saisie d'appliquer le format monétaire sur ma TextBox:

#Private Sub Tbx5_afterupdate()
Dim CHN As String, Start As Integer
CHN = Tbx5.Text
Start = Tbx5.SelStart
If CHN <> "" Then
If Right(CHN, 1) <> "€" Then
CHN = RTrim(CHN) & " €"
Tbx5.Text = CHN
Tbx5.SelStart = Start
End If
End If
End Sub#

je cherche, si rien n'est saisi, après tabul à ce que O€ soit inscrit dans la TextBox,
qui à une piste!?

ps: j'ai essayé en rajoutant
#If Tbx5.Value Is Nothing Then
Tbx5 = "0"
End If#
dans mon code, mais ça ne fonctionne pas!

merci🙂

 

[Paritec]

Re : TextBox: Valeur O si rien afterupdate

Bonsoir provence,
moi j'aurais mis
If Tbx5 = "" then Tbx5=0 &" €"
bonne soirée
a+
Papou 🙂

EDIT: re Pierrot, t'as vu c'est la même réponse que toi, à force je m'améliore!!!!

 

[Pierrot93]

Re : TextBox: Valeur O si rien afterupdate

Bonjour,

essaye peut être ainsi, nom du "textbox" à adapter :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then TextBox1 = "0€"
End Sub

bon après midi
@+

Edition : re Papou

 

[Provence Vintage]

Re : TextBox: Valeur O si rien afterupdate

Papou, Pierrot,

Merci les gars; en Exit cela fonctionne bien!
bonne fin d'après-midi.