Discussion :

[abouhossam]

bjr
j'ai le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[JackOuYA]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[abouhossam]

c'est parfait
merci JackOuYA