Utilisation du clavier numérique sur un TextBox

[dbonneaud]

Bonjour à tous,
Comment utiliser le clavier numérique du PC pour écrire des nombres à décimales dans un TextBox, (Transformer le point du clavier en virgule).
Merci pour votre aide.
Didier

 

[Robert]

Re : Utilisation du clavier numérique sur un TextBox

Bonsoir Didier, bonsoir el forum,

Essaie comme ça :

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

 

[kiki29]

Re : Utilisation du clavier numérique sur un TextBox

Salut, voir sur https://www.excel-downloads.com/threads/point-au-lieu-de-virgule-dans-un-useform.72850/

Transforme le Point en Virgule et n'admet qu'un seul séparateur décimal ( càd 123,156 et non 123,,,,156 )

 

[Yaloo]

Re : Utilisation du clavier numérique sur un TextBox

Bonsoir tout le monde,

dbonneaud, tu peux utiliser ça, uniquement des chiffres, la virgule et le point qui se transforme en virgule :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is = 44, Is = 46
KeyAscii = 44
Case Is < 48, Is > 57
KeyAscii = 0
End Select
End Sub

A+
Yaloo

 

[dbonneaud]

Re : Utilisation du clavier numérique sur un TextBox

Bonjour à tous,
Merci beaucoup pour votre aide, mon problème est résolu.
Didier