salut pl,
je pense que le code suivant mis dans ta UserForm devrait resoudre le pb :
Private Sub TextBox1_Change()
If Right(TextBox1.Text, 1) = "." Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) + ","
End If
End Sub
A chaque fois que tu ajoute un charactere dans la TextBox1, la procedure teste ce charactere (if) et si c'est un point alors elle remplace ce charactere par une virgule.
En fait elle remplace le texte par le meme texte sans le point (TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) ) puis ajoute une virgule (concatenatoin: + ",")
Voila.
A++, Sylsyl.