Discussion :

[pilounet54]

bonjour j'ai ceci et je souhaiterai savoir ou mettre le mot format svp

Code :

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

TextBox6.Value = CStr(CDbl(Me.TextBox1,"0,00") ) + CDbl(Me.TextBox2,"0,00") ) + CDbl(Me.TextBox3,"0,00") ) + CDbl(Me.TextBox4,"0,00") ) + CDbl(Me.TextBox5,"0,00") ))

je conserve dans la mesure du possible

Code :

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

CStr(CDbl

merci et bonjour à tous

[jfontaine]

Bonjour,

Je serais étonné que ta ligne de code fonctionne

Code :

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

CDbl(Me.TextBox1,"0,00")

F1 sur Cdbl pour comprendre

[pilounet54]

j'ai ceci :

Code :

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

TextBox6.Value = CStr(CDbl(Me.TextBox1) + CDbl(Me.TextBox2) + CDbl(Me.TextBox3) + CDbl(Me.TextBox4) + CDbl(Me.TextBox5))

qui fontionne mais l'inconvénient c'est que de temps en temps j'ai 3 chiffres apres la virgule ?

[AlphaScorpi]

Essaies ceci

Code :

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

TextBox6.Value = Format(CDbl(Me.TextBox1) + CDbl(Me.TextBox2) + CDbl(Me.TextBox3) + CDbl(Me.TextBox4) + CDbl(Me.TextBox5),"# ##0.00")

[pilounet54]

j'ai resolu le probleme comme cela
j'ai tout simplement arrondi mes cellules automatiquement par formule comme ceci

Code :

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

Worksheets("Cotisations").Range("R5").FormulaLocal = "=ARRONDI.SUP((H3*90)/100;2)"

et je n'ai plus 3 chiffres apres la virgules dans mes textbox
le format de cellule /nombre /2 chiffres apres la vigule ne regle pas le probleme merci

[jfontaine]

Tu nous parles d'un problème de format avec des textbox, pour au final trouver une formule, qui pointe sur une cellule, qui règlerait ton problème.

Bah la, j'ai vraiment du mal a te suivre.