format d'une textbox

Bonjour à tous

je vous expose mon problème


dans une textbox sur un userform je désire que s'affiche le nombre saisi au format monétaire (€)
par exemple je saisi 15.4 je voudrais qu'apparaisse dans la textbox 15.4 €

d'avance je vous remercie pour votre aide

Bonjour,
une idée

Code:

---

1 2 3

Private Sub TextBox1_LostFocus() TextBox1 = Format(TextBox1, "0.00€") End Sub

---

Je te laisse t'assurer que la valeur est bien numérique et qu'il n'y a pas de souci "." et ","

bonjour sylvain591 l' ami krovax je le mettrais plutot dans EXIT

Code:

---

1 2 3

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = Format(TextBox1.Value, "0.00 €") End Sub

---

en complement on pourait rajouter ce code pas de letres & pas de virgurle ou avec virgule au choix

Code:

---

1 2 3

Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger) If InStr("0123456789.", Chr(keyAscii)) = 0 Then keyAscii = 0 End Sub

---

Bonjour laetitia
C'est vrai qu'il est dans un userform j'avais testé dans une feuille de calcul et là pas de exit visiblement. Au temps pour moi, je pense également que le exit est plus approprié du coup

merci beaucoup

vos soliutions sont opérationnelles

:D