Discussion :

[ankoubzh]

Bonjour,
A partir d'un tableau dans un worksheet, un userform récupère les données et les affiche dans un textbox ou un label
Cependant, je ne parviens pas à forcer le format du textbox : par exemple, dans ma cellule d'origine, formatée en nombre avec deux décimales, on visualise 0,05, la vrai valeur étant 0,045789...Je veux afficher 0,05 dans mon textbox. Cependant, je n'arrive à afficher 5E-2, il convertit automatiquement en écriture scientifique...j'ai beau chercher dans les propriétés du txtbox, rien sur le format
Comment faire ?
Merci

[ucfoutu]

Bonjour,

plusieurs solutions, dont celle-ci, amusante (exemple) :

Code :

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

Text1.Text = Format(CCur("0,045789"), "0.##")

[ankoubzh]

Merci, mais cela ne fonctionne malheureusement pas dans mon programme. Il s'agit d'un userform que je crée dynamiquement (parce que beaucoup de label/textbox à créer !) et quand je lui applique ce code, il me renvoie dans le textbox "1." dans tous les cas
en plus, comme je crée ce userform dynamiquement, et que je peux aussi bien avoir comme valeur 1.25 que 0.05, et que je souhaite la forme décimale avec deux chiffres après la virgule, je lui ai appliqué format (CCur(valeur),"#,##"), ce qui n'a pas non plus fonctionné...
que puis-je faire ?

[laetitia]

bonjour ankoubzh l' ami ucfoutu le forum peut être comme cela!!!!

Code :

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

TextBox1 = Format(TextBox1, "## #0.00 ")

pour avoir la virgule a la place du point

Code :

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

TextBox1 = Replace(Format((TextBox1), "## #0.00 "), ".", ",")

[ucfoutu]

le format "0.##" convient...
la preuve :

Code :

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

Text1.Text = Format(CCur("1,2458"), "0.##")

enverra 1,25
et même la "chaîne scientifique" sera acceptée et :

Code :

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

Text1.Text = Format(CCur("5E-2"), "0.##")

enverra bien 0.05
encore faut-il utiliser une chaine de caractères et non une valeur numérique, bien évidemment
si ta variable valeur est en fait un numérique et pas une chaîne de caractères, transforme-là :

Code :

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

Text1.Text = Format(CCur(Cstr(valeur)), "0.##")

maintenant : tes "5" (dans les décimales) sont-ils fortuits ou souhaites-tu que ce soit systématiquement arrondi au 5 centième le plus proche et non au centième le plus proche ? (si oui, c'est encore autre chose)

[ankoubzh]

merci à vous deux pour vos réponses !
le 5 centième est bien fortuit, et je suis quasiment sûr (mon code est au boulot...) de lui mettre en entrée une chaîne de caractère.
J'avoue ne pas avoir essayé en dehors du code qui crée dynamiquement mon userform (le problème ne peut-il pas venir de là ?), peut-être ai-je mis #,## au lieu de #.##
je vérifirai dès demain !