Texbox

[MacMac]

Bonsoir ,,,

voila je recupere une cellulle dans une texbox ma cellule contient un chiffre que j'ai obtenu par un calcul via par formule celle ci est bien au bon format .admeton 12 000,52 (donc separateur de millier et 2 decimal )


Mais mon textbox dans laquelle je recupere la donne me met un chiffre 12000,522222222222222 je voudrez que celui ci soit le meme que ma cellule avec separateur de millier et 2 decimal .

je pense que cela se pase dans la propriete de ma texbox mais je ne vois pas ou

pourrez vous m'eclaircir SVP


Merci
MacMAc

 

[BOCARAMEL]

Re : Texbox

Bonsoir MacMac

essai ça
a mettre dans

Private Sub UserForm_Activate() 'ouverture de l'userform


UserForm1.TextBox1.Value = Sheets("feuil1").Range("a1").Value
TextBox1.Value = format(TextBox1.Value, "# ###.#0")

Bocaramel

 

[MacMac]

Re : Texbox

Bonsoir ,


Merci pour ton aide Bocaramel

mais je viens de coller le code adaptez a mes parametre mais cela ne fonctionne pas sa me plante le truc

Merci ,,,,,

 

[BOCARAMEL]

Re : Texbox

re,
regarde le fichier ci-joint

cdlt

 

[MacMac]

Re : Texbox

Merci BOCARAMEL


cela fonctionne tres biens je viens de l'adpter avec une texbox

mais question est ce possible de le faire avec une label au lieu d'une Texbox




je viens d'essayer ceci mais sa ne vas pas

Private Sub UserForm_Activate()
UserForm2.Label31.Value = Sheets("Calcul").Range("B4").Value
Label31.Value = Format(Label31.Value, "# ###.#0")

End Sub


Merci

 

[BOCARAMEL]

Re : Texbox

re,
oui biensur

comme ceci

UserForm1.Label1.Caption = Sheets("feuil1").Range("a1").Value
Label1.Caption = Format(Label1.Caption, "# ###.#0")

fichier ci-joint

a+
bocaramel

 

[Pierrot93]

Re : Texbox

Bonjour,

on peut également le faire directement ainsi, code à utiliser dans le module de ton USF :

Label1.Caption = Format(Sheets("Feuil1").Range("a1").Value, "# ###.#0")

bonne journée
@+