Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.