michel

bonsoir Mickael

j'espere que l'exemple ci dessous pourra t'aider

Private Sub TextBox1_Change()
Dim Valeur As Double
On Error Resume Next
Valeur = TextBox1
TextBox1 = Application.Round(Valeur, 0)
End Sub

bonne soiree
michel