Opération TextBox Format Monetaire

[Gabriel]

Bonjour à toutes & à tous
Je vous sollicite à nouveau, cette fois ci concernant les formats monétaires dans les textBox, je n'ai malheureusement pas trouvé mon bonheur dans les archives du forum.
J'ai essayé plusieurs formats aucun ne fonctionne...

Private Sub MontantMission_Change()
MontantMission = VBA.Format(MontantMission.Value, ' 0.00 €')
ComClt = format(ComClt, '0.0E+00 ')
ComComHT = format(ComComHT, '0.0E+00 ')
TotalTTC.Value = format(TotalTTC, '0.0E+00 ')
Taxe.Value = format(Taxe.Value, '#,##0.00 €' )
ComClt.Value = Val(MontantMission.Value) * Val(P100Clt.Value) / 100
ComComHT.Value = Val(ComClt.Value) * Val(P100Com.Value) / 100
Taxe.Value = Val(ComComHT.Value) * '19,6' / 100
TotalTTC.Value = Val(ComComHT.Value) + Val(Taxe.Value)

Je souhaiterais avoir le signe Euro et les décimales qui s'affichent, Ex : 1 500,00 €.
Merci de votre aide.
Gabriel

 

[D froger]

Bonjour,

Essai ce code

Private Sub CommandButton1_Click()
Dim Totalttc As Currency
Totalttc = Sheets('Feuil1').Range('a1')
Me.TextBox1 = FormatCurrency(Totalttc, -1, vbFalse, vbFalse, vbFalse)
End Sub

j'espere que ça te conviendras

A adapter bien sûr

A+

 

[Gabriel]

Bonjour D froger,
En fait tout se passe au niveau de l'USF
je saisie des valeurs dans une textbox (MontantMission), à partir de ce montant il y à tout un chainage d'opérations pour arriver au TTC.
Le problème, c'est que je n'arrive pas à définir le format monétaire dans les textbox lors de la saisie, si je tape 1500 ca me donne 001,00€500.
A la validation, les données saisie vont sur une base de données. Quant au format des cellules, apparament c'est plus facile à obtenir...
Si tu as une idée...

Merci & @+
Gabriel