Textbox effacer les chiffres 000 en premier

Bonjour,

Je souhaiterais effacer tous les chiffres commençant par 0 dans une textbox et ne garder que les chiffres positifs.
par exemple je souhaiterais que 0030 soit remplacé par 30 ou que 000030 soit remplacé par 30

Merci

1 réponse

  1. Bonjour,

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