Une seule Décimale dans un TextBox

Bonjour à tous,

Je débute en VBA...
Voilà mon souci. Dans un UserForm j'ai plusieurs TextBox dont deux qui se complètent. Quand je rentre une quantité dans un TextBox, un calcul s'effectue dans l'autre suivant les données d'une feuille (j'ai mis mes données dans une feuille car je n'arrive pas à faire le calcul directement dans le UsrForm) avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8

Private Sub QuCons_Change() With Choix_Bilan 'Userform TotalCons = .TotalCons.Value QuCons = .QuCons.Value Sheets("Donnee").Range("G2").Value = QuCons TotalCons = Sheets("Donnee").Range("H2") End With End Sub

---

Donc quand je rentre une donnée dans le TextBox "QuCons", le résultat en H2 s'affiche dans le TextBox "TotalCons", mais avec plein de décimales suivant le résultat... Je ne voudrais qu'une seule décimale !
Merci de m'aider à résoudre mon problème : Comment formater mon TextBox "TotalCons" pour qu'il n'affiche qu'une seule décimale.

Cordialement
Magnum812

Salut,voir aide en ligne sur Format

Merci pour ton aide, mais je n'ai pas trouvé la solution à mon problème!
Je sais formater une cellule pour n'avoir qu'une seule décimale, mais le résultat dans mon TextBox est toujours à plusieurs décimales.

Cordialement

Re

Code:

---

TotalCons = Format(Sheets("Donnee").Range("H2"), "0.0")

---

Merci KiKi29,
Merci pour ton aide, ça fonctionne parfaitement! (certainement facile pour un expert, mais pour un débutant.....!!!)
Encore merci à toi de m'avoir donné un peu de ton temps.

Cordialement

Magnum812