textbox format numérique

bjr
j'ai le code suivant

Code:

---

1 2 3 4 5 6

Private Sub prixttc_AfterUpdate() If Not IsNumeric(prixttc.Text) Then MsgBox ("LE CHAMPS PRIX TTC NE RECOIT PAS DU TEXT") prixttc.Text = "" End If End Sub

---

mon problème c'est que mon textbox "prixttc" n'accepte pas le point du clavier numérique est accepte la vergule.
mon but c'est que mon textbox "prixttc" accepte le point et aussi la vergule.
merci à vous.

bonjour,

fait un recherche/remplace des point (.) par virgules (,)

Code:

---

1 2 3

Private Sub prixttc_AfterUpdate() prixttc.text = replace(prixttc.text,".",",")

---

c'est parfait
merci JackOuYA