séparation numérique dans un textbox

[sasjm37]

Bonjour le forum
Comment peut-on présenter des chiffres avec séparateur du style
10 000 ou 10.000 dans le textbox d'un userform.
merci

 

[justine]

Re : séparation numérique dans un textbox

salut le forum, sasjm37

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#,###")
End Sub


bonne continuation
justine

 

[sasjm37]

Re : séparation numérique dans un textbox

Merci justine, c'est en fait simple il faut juste réfléchir un peu (c'est la raison pour laquelle les femmes nous sont indispensables).

Si je peux me permettre, vu que j'ai de nombreux "textbox" et "combobox" a mettre dans ce format, puis-je faire un module de classe et si oui s'écrirait-il de cette maniére

Public WithEvents TxtBox As MSForms.TextBox

Private Sub TxtBox_Change()
If Not IsNumeric(TxtBoxClasse) Then Exit Sub
TxtBox = Format(TextBoxclasse, "#,###")
End Sub