renvoi obligatoirement 7 chiffres

[BOCARAMEL]

🙂 Bonjour a tous

voila mon petit souci 😕
j'aimerai suite a la saisie d'un chiffre dans un textbox
renvoyer la valeur dans la cellule avec le format suivant

exemple
valeur dans le textbox "25" renvoi dans la cellule "a1" 0000025
valeur dans le textbox "186" renvoi dans la cellule "a1" 0000186
valeur dans le textbox "486957" renvoi dans la cellule "a1" 0486957
valeur dans le textbox "1234567" renvoi dans la cellule "a1" 1234567

avec un maximun de 7 chiffres
car je compte bloquer ma textbox a 7 chiffres

merci de votre aide
bocaramel😉

ci joint 2 fichiers Excel
1 au format excel 2007
1 au format excel 97/03

 

[Raja]

Re : renvoi obligatoirement 7 chiffres

Bonjour,

Cette formule peut t'aider.

=TEXTE(GAUCHE(A1;7);"0000000")

 

[Raja]

Re : renvoi obligatoirement 7 chiffres

Re,

En VBA essaye ça :

[A1].Value = WorksheetFunction.Text(Left(TextBox1.Value, 7), "0000000")

 

[BOCARAMEL]

Re : renvoi obligatoirement 7 chiffres

Bonjour Raja
merci de ton aide

ton code
[A1].Value = WorksheetFunction.Text(Left(TextBox1.Value, 7), "0000000")

bloque le textbox a 7 chiffres
mais n'affiche pas les zeros dans la cellule

merci

 

[Raja]

Re : renvoi obligatoirement 7 chiffres

Re,

[A1] = Left(TextBox1.Value, 7)

Essaye alors uniquement ça et met la cellule de destination(dans notre exemple A1) au format personnalisé "0000000".

 

[BOCARAMEL]

Re : renvoi obligatoirement 7 chiffres

🙂 Merci a toi Raja
tout a fait ça

je redonne la solution
code vba
[A1] = Left(TextBox1.Value, 7)
format personnalisé de la cellule 0000000

encore merci
et a plus sur excel download 🙂