Concaténation avec 0

Bonjour le forum,

J'ai un morceau de code qui me permet de concaténer un nombre qui se trouve dans une case (Y2) de ma feuille 1 avec un 0.
Je veut pouvoir mettre ce 0 en première position.
Cela commencerais par 30168 et aprés l'opération 030168
Voila le code que j'utilise :

Code:

---

1 2 3

If Len(Range("Y2").Value) = 5 Then resultat = "0" & Range("Y2").Value end if

---

Il n'y à aucun message d'erreur, mais on obtien toujours 30168 ...
Y aurait-il quelque chose à faire pour forcer l'apparition du 0 ?

Cordialement

Salut,
Essaies en mettant un format personnalisé sur ta cellule Y2 de type

Code:

---

0###0

---

A+

Edit: En fait tu peux le mettre dans le code, donc:

Code:

---

1 2 3

If Len(Range("Y2").Value) = 5 Then Range("Y2").NumberFormat = "0####0" End If

---

ReEdit: Adaptation du code la ligne resultat... était inutile en l'état, voir solution de Mercatog

Ou ceci:

Code:

---

1 2 3 4 5

Dim resultat as String If Len(Range("Y2").Value) = 5 Then resultat = "'0" & Range("Y2").Value end if

---

le résultat est donc un string

Merci pour vos réponses, la première solution fonctionne, mais pas la deuxième, l'apostrophe avant le 0 veut dire quoi exactement ?

essaie dans une feuille excel d'écrire cela: 019714 et '019714
le deuxième sera "un nombre" sous forme texte

pour la première méthode de Fvandermeulen, tu récupère un nombre mis en forme!

Mais il me reste un souci quand même par la suite, le fait de concaténer avec le 0, me permet d'avoir le nom d'un dossier que j'utilise pour l'ouverture de ce même dossier dans un chemin voici le code pour une meilleur comprehension :

Code:

---

1 2	ChDrive "C:" ChDir "C:\Raval\Result\" & Range("Y2").Value & "\Good"

---

Même si un peu plus haut la technique pour remettre le 0 fonctionne, quand je debug, il ne s'y trouve plus alors que dans la cellule Y2 il s'y trouve ... je ne m'y retrouve plus ... et il me le faut pour pouvoir valider mon chemin windows

Cordialement

Si je peux me permettre,
Je crois que tu pense que la solution de Mercatog ne fonctionne pas car en fait tu ne fais rien de la variable "resultat" (à par lui donner une valeur).
Si tu fais:

Code:

---

1 2 3

If Len(Range("Y2").Value) = 5 Then Range("Y2") = "'0" & Range("Y2").Value end if

---

tu verras la différence entre les deux solutions.

A+

Oui je suis désolé je n'avais pas fait attention, je m'en suis aperçu juste à l'instant avant de lire vos réponses.
Merci pour l'explication c'est bien compris ^^

On est occupé à croiser nos réponses, c'est plus très clair...:aie:

Au vu de la suite de ton code, tu dois alors utiliser la méthode de Mercatog, car comme il l'a dit, la mienne n'est qu'une mise en forme.

A+

Je vous remerci beaucoup, je vois enfin le bout du tunel ^^
A première vu cela fonctionne vraiment sans problème, je vais encore faire quelque test mais je pense que c'est parfait.
En vous remerciant :ccool:

Cordialement

Au vu de l'expérience du chef Fvandermeulen, je me retire donc
:hola:

Bonjour tou(te)s
Si je peu me permettre mon grain de sel.. :roll:

Code:

---

1 2	'Si le nombre de chiffres est toujours le même... ChDir "C:\Raval\Result\" & Right(CStr("000" & Range("Y2")), 6) & "\Good"

---

Quel que soit le nombre de chiffres dans la cellule il serra toujours précéder de 0 (zéro) et aura une longeur de 6
A+

Merci a toi LeForestier mais le nombre de chiffre peut varier, je peut avoir 4, 2 ou 6 chiffres, peut être quand dans un futur proche cela changera encore je ne peut pas le prévoir.

Cordialement

Citation:

---

Envoyé par mercatog

Au vu de l'expérience du chef Fvandermeulen, je me retire donc
:hola:

---

Pas de fausse modestie, c'est ta solution qui était la bonne pour ce cas, et je ne peux pas accepter d'éloge (si je puis dire) quand on voit la solution de LeForestier !!!

A+

Citation:

---

Envoyé par jackall

Merci a toi LeForestier mais le nombre de chiffre peut varier, je peut avoir 4, 2 ou 6 chiffres, peut être quand dans un futur proche cela changera encore je ne peut pas le prévoir.

Cordialement

---

Je pense que tu n'a pas bien compris ma réponse...
Exemple..
322 >> 000322
4589 >> 004589
85599 >> 085599
652356 >> 652356

A+