perte des zéros dans une InputBox [Résolu]

[hunteshiva]

Bonjour,

j'ai un petit soucis tout bête.

Dans mon cas il s'agit de saisir des références.
mais j'arrive pas a conserver les zéros qui sont sont devant.

exemple:

• si je saisie 0001234 comme référence, il ne prend que 1234
  
• Par contre si je fait '0001234 la c'est bon !!

il n'y a pas moyen de rendre la chose plus transparente pour l'utilisateur en lui évitant de saisir cette apostrophe ?

[jfontaine]

Bonjour,

2 possibilités

- Tu ajoutes l'apostrophe dans ton code

Code :

Range("A1").Value = "'" & InputBox("")

- tu modifies le format de la cellule de destination (Format texte)

Code :

1
2
Range("A2").NumberFormatLocal = "@"
Range("A2").Value = InputBox("")

La deuxième solution me semblant "plus propre" puisque n'affiche pas l'apostrophe

[hunteshiva]

Merci de ta référence *rapide*

même en enregistrant dans une variable je perds les zéros ....

Code :

1
2
        'Demande de la référence
        MemRef = Application.InputBox("Quelle Référence ?", "Référence")

[jfontaine]

Apparemment tu n'as pas bien lu mes propositions

Quel est le type de la variable MemRef ?

[hunteshiva]

Oo je dit vraiment n'importe quoi.
elle est de type String.

en faite ce que je fessais fonctionne
*trop d’essais, je me suis mélangé*

Merci jfontaine

PS: j'ai essayé de mettre une apostrophe, et en faite elle mettait le bazar dans ma variable