Conserver un string avec des zero au debut

[zmus]

j'ai sur une colonne des codes en chiffre et qui commence avec 0

exemple 00102

pour augmenter ce code d'un point j'ai comme resultat 103 au lieu 00103.

voici le code que j'ai utilisé

Private Sub CommandButton10_Click

Dim dl As Long ' dernière ligne
dl = Feuil1.Range("D65536").End(xlUp).Row + 1
Dim x, y As String

For i = 1 To dl
If Feuil1.Cells(i, 5) = client Then
y = Feuil1.Cells(i, 4)
If y > x Then
x = y
End If
End If
Next i
Feuil1.Cells(m, 4) = x + 1 'N°lot
End sub

S.O.S SVP le Forum


Grand Merci

 

[cbea]

Re : Conserver un string avec des zero au debut

Bonjour zmus,

Voici une solution.
Remplacer :

Feuil1.Cells(m, 4) = x + 1

par

Feuil1.Cells(m, 4) = Format(x + 1, "00000")

 

[ya_v_ka]

Re : Conserver un string avec des zero au debut

Salut

Juste un ti truc... il me semble que la déclaration

Dim x, y As String

déclare le x en autre chose que du string (mais pas certain en plus)...

et je ne sais pas lequel est mieux :

Dim x as String, y as string
ou
Dim x as String
Dim y as String

Je soulève plus la question que la réponse... désolé

Ya'v

 

[cbea]

Re : Conserver un string avec des zero au debut

Bonjour Ya'v,

Pour répondre à tes interrogations.

1/ Dim x, y as String
Si le type de données n'est pas renseigné, cela correspond à un type de données Variant
soit Dim x as Variant, y as String

2/ Dim x as String, y as String
ou
Dim x as String
Dim y as String
C'est pareil