Discussion :

[Olivierporcinet]

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.

[Philippe PONS]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

[Olivierporcinet]

un très grand merci.