Afficher un nombre avec les décimales

[Jean-Michel]

Salut le forum et à tous les pros du vba,

Voici un probléme que je n'arrive pas à résoudre.

Je cherche quelle propriété je dois changer dans une texbox pour que l'affichage du nombre qui apparaite dans la texbox s'affiche avec ses décimales. "jusqu'au centième ce serait le paradis"

Merci d'avance pour votre réponse.

Jean-Michel

 

[Lord Nelson]

Salut Jean-Michel,

Si ta TextBox est sur une feuille, tu peux entrer ceci dans le code de la feuille :

Private Sub TextBox1_LostFocus()
Dim Chn As String
Chn = TextBox1.Text
If IsNumeric(Chn) Then
Chn = Format(Chn, "# ##0.00")
TextBox1.Text = Chn
End If
End Sub

Le format s'applique dès que l'utilisateur quitte la TextBox.

A+
Horatio

 

[Jean-Michel]

Salut Horatio et le forum,

Ma textbox est dans un usf et j'ai cherché dans toute les propriétés de la txb dans la fenêtre propriété et je ne trouve rien au niveau du formattext.

Alors je ne sais plus comment faire.

J'ai fait un essais avec une texte box posé sur un feuille de calcul et cela fonctionne avec un point comme séparateur de décimale.

Par contre, ma texbox posée sur mon usf ne rien savoir. elle calcul avec la décimale mais ne veut pas l'afficher. Encore des miracles de la technique que je ne maîtrise pas!!!!

Merci pour le coup de main c'est super sympa.

A bientôt
Jean-MOCHEL