Discussion :

[sylvain591]

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

[Krovax]

Bonjour,
une idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ","

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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

[sylvain591]

merci beaucoup

vos soliutions sont opérationnelles