bonjour, j'ai un pb: lorsque je saisis la valeur numérique d'un résultat et qu'il ya une virgule , le prog ne prend que la première valeur avant la virgule comment faire comment faire pour qu'il n'affiche pas une virgule mais un point ou pour que la virgule se change en point
merci de votre aide
christophe

Private Sub Text1_Change()
z$ = Text1.Text

' verifie si une virgule est presente dans la TextBox.
' Si oui, la change en "."
If InStr(z$, ",") Then Mid$(z$, InStr(z$, ","), 1) = "."

Text1.Text = z$
Text1.SelStart = Len(Text1.Text)

End Sub

Ce code marche si on saisie une valeur. Lorsqu'on tape une virgule, elle est changer en point. Et lorsqu'on colle une valeur.

En vb6, sur le change de text1 :

Text1.text = Replace(Text1.text,",",".")
Text1.SelStart = Len(Text1.Text)


Amitiés - Renaud -