Point au lieu de virgule dans un useform

[Didounix]

ave à tous,

J'ai réalisé un Useform qui calcule des doses en fonction d'un débit souhaité.
Cela marche inpec. Le probléme c'est que certains utilisateurs mettent un point au lieu de virgule dans le textbox, ce qui bloque la macro.
J'ai essaye de bloquer l'interruption par un " on error resume next", mais les commandes qui suivent s'exécutent quelquesoit le chiffre.

 

[Pierrot93]

Re : Point au lieu de virgule dans un useform

Bonjour Didounix

mets l'évènement ci dessous dans le module de ton USF

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then KeyAscii = 44
End Sub

remplace auto du point par la virgule.

bonne soirée
@+

 

[Gorfael]

Re : Point au lieu de virgule dans un useform

Bonjour Didounix

mets l'évènement ci dessous dans le module de ton USF

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then KeyAscii = 44
End Sub

remplace auto du point par la virgule.

bonne soirée
@+

Salut à tous en bonne année
autre solution

Sub TextBox1_Change()
If IsNumeric(Replace(Me.TextBox1, ".", ",")) Then Me.TextBox1 = Replace(Me.TextBox1, ".", ",")
End Sub

A+

 

[kiki29]

Re : Point au lieu de virgule dans un useform

Ton fichier modifié : Remplacement saisie du point par une virgule et interdiction de saisir un 2eme séparateur décimal , ainsi qu'autre chose que des chiffres