Comment obtenir chiffre directement clavier portable ?

[yves03]

Bonsoir à tous,

J'utilise un ordinateur portable, et il n'y a pas de pavé numerique, est ce que quelqu'un sait comment forcer la saisie des chiffres dans une textbox ?
J'ai utilisé:

Textbox1.text = Ucase(TextBox1.Text)

, mais ça ne fonctionne pas.

Merci d'avance

 

[Guest]

Re : Comment obtenir chiffre directement clavier portable ?

Bonjour Yves,

tu peux utiliser la méthode ci-dessous en sachant:

1 - qu'il faudra utiliser le signe égal pour avoir le signe - qui lui est remplacé par le chiffre 6
2 - Le chr(34)= le guillemet de la touche 3 et le chr(39)=l'apostrophe
3 - le point est remplacé par la virgule.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 Dim pos As Integer
 pos = InStr("&é(-è_çà" & Chr(34) & Chr(39) & ".=", Chr(KeyAscii))
 If pos > 0 Then KeyAscii = Asc(Mid("1256789034,-", pos, 1))
End Sub

A bientôt

 

[yves03]

Re : Comment obtenir chiffre directement clavier portable ?

J'etais pas pret de trouver tout seul !!! 😱
J'ai pas tout compris, mais je vais essayer.
Merci encore, de ton efficacitée
A bientot
😉

 

[ftho]

Re : Comment obtenir chiffre directement clavier portable ?

Bonjour,

Pour obliger l'utilisateur à saisir un chiffre, dans l'événement KeyPress de la TextBox

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "veuillez saisir un chiffre compris entre 0 et 9"
    End If
End Sub

Si tu veux pouvoir utiliser le clavier alpha-numérique pour taper les chiffres dans la textbox sans devoir passer en mode "Caps Lock"

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 38: KeyAscii = 49 '<-- caractère & = 1
        Case 233: KeyAscii = 50 '<-- caractère é = 2
        Case 34: KeyAscii = 51 '<-- caractère " = 3
        Case 39: KeyAscii = 52 '<-- caractère ' = 4
        Case 40: KeyAscii = 53 '<-- caractère ( = 5
        'etc...
    End Select
End Sub

à adapter selon les caractères se trouvant sous les chiffres

[EDIT] oups sorry Hasco

 

[yves03]

Re : Comment obtenir chiffre directement clavier portable ?

Merci ftho pour ton post.