Format txtbox en VBA dans un userform

Bonjour

Comment faire pour formater un txtbox en vba pour afficher dans une cellule de mon tableau le format suivant : un chiffre suivi de mg/dl

merci

bonsoir le forum

à tester

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
TextBox1.Value = Format(TextBox1.Value, "0# mg/dl")
End Sub

Merci

ca marche en partie

si je saisi, à partir du formulaire, 12,6

obtiens 13 mg/dl alors que je voudrai 12,6 mg/dl

merci encore pour votre aide

Bonjour Micîd, Chindou,

Tu peux utiliser une condition dans le code.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value - Int(TextBox1.Value) = 0 Then
TextBox1.Value = Format(TextBox1.Value, "0# mg/dl")
Else: TextBox1.Value = Format(TextBox1.Value, "0.00# mg/dl")
End If
End Sub

Voire ôter un 0 à droite de la ligne du deuxième format si tu ne souhaites qu'une décimale.