Conserver un string avec des zero au debut

zmus · 3 Mai 2008

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 · 3 Mai 2008

Re : Conserver un string avec des zero au debut

Bonjour zmus,

Voici une solution.
Remplacer :

Code:

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

par

Code:

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

ya_v_ka · 3 Mai 2008

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 · 3 Mai 2008

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

Conserver un string avec des zero au debut

zmus

XLDnaute Nouveau

cbea

XLDnaute Impliqué

ya_v_ka

XLDnaute Impliqué

cbea

XLDnaute Impliqué

Discussions similaires