Discussion :

[jackall]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

0###0

A+

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Ou ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jackall]

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

[mercatog]

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!

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[jackall]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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