séparation numérique dans un textbox

Re : séparation numérique dans un textbox

salut le forum, sasjm37

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


bonne continuation
justine

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