Incrémentation macro

[fets95]

Bonjour j'ai sur mon fichier une macro incrémentant une valeur qui pour moi est un numéro voir reference.

Voici la macro utilisé
Private Sub CommandButton4_Click()
Dim li As Long 'déclare la variable li

li = Range("A65536").End(xlUp).Row + 1 'définit la variable li
la = Range("A65536").End(xlUp).Row ''définit la variable li=la-1

'place les données dans le tableau
Cells(li, 1).Value = Cells(la, 1).Value 1 ' incrémentation n° devis
Cells(li, 2).Value = TextBox3.Value 'colonne client


Load UserForm2 'ouvre userfom
End Sub

Je voulais savoir si il est possible et comment faire pour que ma référence s'incrémente en gardant un 0 a gauche.

Car mes numéro incrémenté sont du genre 081588 081589 081590 etc... or le 0 disparait lorsqu'il incrémente j'ai essayer de rajouté "0" & mais en vain

Merci

 

[Pierrot93]

Re : Incrémentation macro

Bonsoir fets,

peut être comme ci dessous :

Cells(li, 1).Value = Cells(la, 1).Value + 1
Cells(li, 1).NumberFormat = "000000"

bonne soirée
@+

 

[fets95]

Re : Incrémentation macro

Bonsoir fets,

peut être comme ci dessous :

Cells(li, 1).Value = Cells(la, 1).Value + 1
Cells(li, 1).NumberFormat = "000000"

bonne soirée
@+

Merci je vais essayer

 

[fets95]

Re : Incrémentation macro

Bonsoir fets,

peut être comme ci dessous :

Cells(li, 1).Value = Cells(la, 1).Value + 1
Cells(li, 1).NumberFormat = "000000"

bonne soirée
@+

Ca marche parfaitement merci