Salut,
A la saisie(évènement keypress) pour n'avoir que des nombres et la virgule:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = IIf(KeyAscii < 44 Or KeyAscii > 57, 0, IIf(KeyAscii = 46, 44, KeyAscii))
end sub
pour une appli plus 'internationale' à tester
KeyAscii = IIf(KeyAscii < 44 Or KeyAscii > 57, 0, IIf(KeyAscii = 46 or KeyAscii = 44, asc(application.decimalseparator), KeyAscii))
Pour formater un nombre 123456 en mformat monétaire 123456,00 €, on peut passer par l'évènement exit :
Private Sub TextBox1_Exit(byval ...)
if isnumeric(texbox1) then textbox1=format(textbox1,'#0,00 €'
end sub
Bien entendu on peut combiner l'évènement keypress et exit
Si tu ne t'en sors pas (il ya tellemen,t de possibiltés), dis ce que tu voudrais excatement.
A+++