Discussion :

[vbapprenti]

Bonjour à tous,

Je viens à vous pour espérer trouver une solution à mon problème qui est le suivant:

j'utilise la fonction GetAsyncKeyState(x) pour détecter l'appuie d'une touche clavier avec une boucle de 1 à 255.
Mais lorsque j'appuie sur la touche 1 du pavé numérique cela me renvoie le code 97 et me dit que j'ai appuyé sur a... 2 cela me dit b etc...
lorsque j'appuie sur a en minuscule cela me l'affiche toujours en A majuscule.

Je voulais savoir comment rendre cohérent la pression de la touche du clavier et l’interprétation par le vba?

Merci si quelqu'un trouve une solution pour que lorsque j'appuie sur une touche du clavier il me dise vraiment sur laquelle j'ai appuyé

[carden752]

Bonjour,

Mais lorsque j'appuie sur la touche 1 du pavé numérique cela me renvoie le code 97 et me dit que j'ai appuyé sur a... 2 cela me dit b etc...
lorsque j'appuie sur a en minuscule cela me l'affiche toujours en A majuscule

Normal, vous verrez que l'appui sur la touche 1 du pavé numérique est codé par le chiffre 0x61 soit 97 en base décimale.
Cependant cela ne correspond pas du tout au a minuscule du code ASCII.

Regardez peut-être ici la correspondance de l'appui sur les touches.
Virtual-Key Codes

[vbapprenti]

Merci pour ton explication.
Mais alors quelle est la fonction qui permet de récupérer cette valeur 0x61 (c'est du code windows-1252 de l'unicode de l'ansi? je suis un peu perdu) lorsqu'on appuie sur la touche 1 du pavé numérique par exemple.

[vbapprenti]

J'ai trouvé cela:

je pense que c'est avec cette référence qu'il faut que je travaille non?
http://msdn.microsoft.com/en-us/goglobal/cc305145
Le soucis c'est comment récupérer les codes...

[Maxence HUBICHE]

Aucun rapport !
tu mélanges 2 types de codes.
Tu as le code de touche
et le code Ascii

et tu mélanges aussi deux formes de numérotation : héxadécimal(h) et décimal(d)
donc, 61h = 97d
une manière de noter 97d en héxa, c'est 0X61, une autre &h61, une autre 61h ...

le code ASCII 97d correspond à la lettre a minuscule (voir ici)
le code touche 97d correspond à la touche du pavé numérique 1 (voir ici)

[vbapprenti]

Vous me conseillez quoi à la place de GetAsyncKeyState(x) pour avoir les codes touches?

[Maxence HUBICHE]

ben... déjà, il serait peut-être utile que tu nous en dise un peu plus, comme par exemple ...
Tu travailles sur quel logiciel ? quelle version ? Tu veux faire quoi ? Comment t'orientes-tu actuellement vers ce genre de solution, etc.

[vbapprenti]

J'ai posté dans vba donc je travaille sous vba excel, word etc...
je souhaite que lorsque je tape sur une touche du clavier il me dise sur quelle touche j'ai appuyé comme par exemple pour la touche du pavé numérique 1 qu'il me dise que c'est "1" et non "a" comme il me dit actuellement...

[carden752]

Bonjour,

Il ne te dit pas que c'est "a" mais bien un.
Tu peux regarder le lien suivant chez Microsoft sur les Virtual-Key Codes qui montrent que la touche 1 du pavé numérique est bien codé par le code hexadécimal 0x61.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://msdn.microsoft.com/en-us/library/dd375731(v=vs.85).aspx

Il n'existe pas de version française de cette documentation, donc c'est en anglais.

[vbapprenti]

Ca doit être mon code qui est pourri alors pour qu'il m'affiche n'importe quoi...
Voici un bout de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For i = 1 To 255 
        result = 0
        result = GetAsyncKeyState(i)
        If result = -32767 Then
            touche =Chr$(i)
            MsgBox(touche) 'la s'est sensé affiché le charactere de la touche
            MsgBox (i) 'la ca affiche le code de la touche
        End If
Next i

ca m'affiche bien "a" à la place de "1" quand j'appuie sur la touche 1 du pavé numérique et code 97...