Changer un nombre decimale dans une textbox en nombre entier

[Mickaël]

Bonjour forum.

J'ai un petit souci evec une textbox.
J'ai une valeure numerique decimale ex : 123,15 je voudrais pouvoir avoir dans cette textbox un entier ex : 123
je ne vois pas quelle est la solution.

Merci a tous et bon programme.

 

[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

 

[Mickaël]

Merci beaucoup ca marche au poil j'ai du adapter un peu mes codes mais ca m'a bien depanné merci.

A+