Conserver un string avec des zero au debut

  • Initiateur de la discussion Initiateur de la discussion zmus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zmus

XLDnaute Nouveau
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
457
Réponses
3
Affichages
568
Réponses
2
Affichages
368
Retour