perte des zéros dans une InputBox

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 ?

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

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")

---

Apparemment tu n'as pas bien lu mes propositions :calim2:

Quel est le type de la variable MemRef ?

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

en faite ce que je fessais fonctionne :aie:
*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 :mouarf: