Saisie Format monétaire dans un TextBox

[Riri]

Bonsoir le Forum,

J'ai essayé plusieurs solutions sans résultat , je n'arrive pas à afficher un format monétaire dans ma TextBox.

Merci pour votre aide. PS fichier joint.

Riri

 

[Lord Nelson]

Salut Riri,

Tu ne peux pas utiliser la fonction Format dans l'évènement Change car tu ne disposes pas d'une donnée numérique. En revanche je te propose de ruser comme ceci :

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

Il s'agit simplement d'ajouter € à droite sauf si le TextBox est vide.

A+
LN