Format d'un textbox ou label

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

Bonjour,

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

Code:

---

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

---

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 ?

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

Code:

---

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

---

pour avoir la virgule a la place du point

Code:

---

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

---

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

Code:

---

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

---

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

Code:

---

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:

---

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)

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 !

Le fait que ton userform soit créé dynamiquement ou non n'a rien à voir !
Même une msgbox ...

regarde :

Code:

---

1 2	MsgBox Format(CCur("5E-2"), "0.##") MsgBox Format(CCur("425,0458"), "0.##")

---

et même un debug.print ...

regarde :

Code:

---

1 2	Debug.Print Format(CCur("5E-2"), "0.##") Debug.Print Format(CCur("425,0458"), "0.##")

---

Il faut par contre que ce soit une CHAINE DE CARACTERES (me relire)

ok pour côté dynamique qui n'a rien à voir, mais pour la chaîne de caractère, ça ne devrait pas être mon problème (me relire...). je pense que je n'ai pas mis #.## mais #,## (je n'ai pas le code sous les yeux, je verrai demain au boulot)

Une autre fois, de toutes manières :
le format ne doit ni être "#.##", ni "#,##", mais bien (et RIGOUREUSEMENT) "0.##"
Si tu t'amuses à transformer, transforme donc mais ne te plains pas ...;)

effectivement, j'avais bien mis #,## au lieu de #.##, et maintenant ça marche ; et même encore mieux, 0,## : je pensais que ça me couperait tout ce qu'il y avait avant la virgule d'où ma transformation ; et c'est en essayant de nouveaux trucs que l'on découvre des fonctionnalités, donc bon ; et personne ne se plaint ;)
dans tous les cas merci