Saisie Format monétaire dans un TextBox

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