Discussion :

[magnum812]

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 :

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

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

[kiki29]

Salut,voir aide en ligne sur Format

[magnum812]

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

[kiki29]

Re

Code :

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

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

[magnum812]

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