Format TextBox

[GClaire]

Salut a toutes et tous

Sur un fichier je récupère les valeurs dans des TextBox de cette manière :

With sheet ("XXX")
txtCumulHeuresMois.Value = .Range("Q17") & " heures"
End With

La formule de le cellule est :
=SOMME(C22:C52)

Le format de cette cellule est :
Nombre a deux décimales

La formule de la plage C22:C52
Standard

Le soucie est que dans le TextBox la valeur écrite ne garde pas la valeur de la cellule :

Par exemple un un résultat 539,00 heures
cela m'indique 539,000000000001 heures

Ce UserForm me sert juste pour visualiser les données, il n'y a pas de modification possible dans les controls.

Merci pour votre aide, G'Claire

 

[GClaire]

Re,

J'ai trové pour éviter cette floppée de 0 aprés la virgule

j'ai remplacé :

txtCumulHeuresMois.Value = .Range("Q17") & " heures"

Par
txtCumulHeuresMois.Value = .Range("Q17")

Mais par contre je voulais avoir dans le TextBox : Heures

Donc j'ai essayé ceci :

Private Sub txtCumulHeuresMois_Change()
txtCumulHeuresMois = Format(txtCumulHeuresMois, "#,##0.00") & "Heures"
End Sub

Cela m'écrit plusieurs fois heures dans le control (Jusqu'au remplissage total du control)

Et si je fait :

Private Sub txtCumulHeuresMois_Change()
txtCumulHeuresMois = Format(txtCumulHeuresMois, "#,##0.00", " Heures")
End Sub

J'ai une incompatibilité de type.

Voila, merci, G'Claire

 

[CHti160]

Salut "GClaire "
bonjour le "FORUM"
avec cette version Hybride cela marche t'il ?
je n'est pas teste


Private Sub txtCumulHeuresMois_Change()
txtCumulHeuresMois = Format(txtCumulHeuresMois, "#,##0.00" & " Heures")
End Sub
A+++
Jean Marie

 

[GClaire]

Jean-Marie

C'est impecable, pourtant, je l'ai tourné dans tous les sens ce code, mais pas penser a celui là.

Merci, et bon week-end, G'Claire