Remplacer le caractère d'un Useform pendant la frappe

[ficus3]

Bonjour,

Dans mon Useform, j'attend une valeur numérique.
Avec le . (point) du clavier numérique ça fausse mes calculs.
Je dois remplacer ce . par une , (virgule)
Je voudrais que la , vienne quand j'utilise le . du pavé numérique.

Pour le moment j'ai une parade issue de ce tuto: Obliger saisie numrique dans TextBox

Et moi je tourne en rond en essayant d'utiliser une fonction Replace, genre:

Private Sub txt_tva_abo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(".", Chr(KeyAscii)) = 1 Then KeyAscii = Replace(KeyAscii, ".", ",")
End Sub

Avez vous des idées ?
Merci

 

[Dranreb]

Re : Remplacer le caractère d'un Useform pendant la frappe

Bonjour.

If KeyAscii = Asc(".") Then KeyAscii = Asc(",")

 

[ficus3]

Re : Remplacer le caractère d'un Useform pendant la frappe

Pourquoi les réponses paraissent toujours aussi simple ? 😛
Merci Dranreb

 

[Dranreb]

Re : Remplacer le caractère d'un Useform pendant la frappe

Non, seulement quand elles le sont autant que la localisation de midi (non à 14 h) ! 🙂