Problème d'impression TextBox VBA

Bonjour,

J'ai un programme Visual Basic qui utilise des TextBox et importe une valeur à l'intérieur à partir de cellules Excel. J'ai été capable de faire apparaitre 3 chiffre après le point dans ma TextBox avec ceci:

Private Sub TextBox_Change()

If Sheets("RÉSULTATS").Range("Calcul.D2.3").Text = True Then

TextBox.Text = Sheets("RÉSULTATS").Range("Calcul.D2.3").Text & " '' "

End If

If Right(TextBox, 1) = "." Or Right(TextBox, 1) = "," Then

TextBox.MaxLength = Len(TextBox) + 3

End If

End Sub

PAR CONTRE, Mon Problème est lorsque je veux IMPRIMER la feuille Excel qui inclut ces TextBox ET que les 3 chiffre après le point est " .000" (ex.: 102.000), lors de l'impression, il n'apparaît que le nombre entier (ex.: 102). POURTANT, le chiffre apparaît correctement dans ma TextBox sur ma feuille Excel (ex.: 102.000). Également, lorsque j'imprime un chiffre comportant un nombre après le point (ex.: 102.125), il imprime correctement.

J'ai besoin d'aide afin d'apparaitre les ".000" lorsque j'imprime !

N'hésitez pas à m'écrire si vous avez besoin plus de détails

Bonjour,

essaie avec Format(), plus classique pour ça :

TextBox=format(TextBox,"0.000")

eric

Cela a fonctionné !

Merci de ta réponse