Format nombre - Contrôle ActiveX

Bonjour,

J'ai crée un Control activeX afin d'obtenir une numérotation automatique lors de l'ouverture de la feuille Excel.

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Dim numero As Integer numero = Val(Feuil1.TextBox1.Text) numero = numero + 1 Feuil1.TextBox1.Text = numero   End Sub

---

La numérotation se fait : 1 ... 2...3 ....

Ce qui m'intéresse : 00001 ...... 00002 ...... 00003

Comment faire pour changer le format ?


Merci.

Bonne journée.

Salut,

Code:

---

Feuil1.TextBox1.Text = Format(numero, "00000")

---

Cordialement,

un très grand merci. :D