Utilisation du clavier numérique sur un TextBox

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Octobre 2011

• #2

Re : Utilisation du clavier numérique sur un TextBox

Bonsoir Didier, bonsoir el forum,

Essaie comme ça :

Code:

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 12 Octobre 2011

• #3

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 )

 

Dernière édition: 12 Octobre 2011

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 12 Octobre 2011

• #4

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 :

VB:

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

 

Vote positif 0 Vote négatif

D

dbonneaud

Guest

• 12 Octobre 2011

• #5

Re : Utilisation du clavier numérique sur un TextBox

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

 

Vote positif 0 Vote négatif