Forcer le clavier numérique à s'activer

[MJ13]

Bonjour à tous

Je cherche une macro pour forcer l'activation du clavier numérique.

Merci d'avance 🙂.

 

[Pierrot93]

Re : Forcer le clavier numérique à s'activer

Bonjour Michel🙂,

peut être la méthode "sendkeys" :

Application.SendKeys "{NUMLOCK}", True

bon après midi
@+

 

[Softmama]

Re : Forcer le clavier numérique à s'activer

Bonjour MJ13,

Via API, tu peux tester ce code:

Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

Sub ActiveToucheNumLock()
Dim Res As Long, Clavier(0 To 255) As Byte
Res = GetKeyboardState(Clavier(0))
Clavier(&H90) = 1 ' &H90 pour NUM LOCK, &H14 pour CAPS lock
Res = SetKeyboardState(Clavier(0))
End Sub

 

[MJ13]

Re : Forcer le clavier numérique à s'activer

Bonjour Pierrot, Softmama

Merci pour vos réponses 🙂.

Jai bien essayé vos codes mais sur Win7, le code de Pierrot fonctionne mais il faudrait que je teste si la touche est activée ou pas car sinon, il simule l'appui de la touche et avec le code de Softmama, il ne se passe rien 😕

 

[MJ13]

Re : Forcer le clavier numérique à s'activer

Re

Bon après une recherche sur G...e, j'ai trouvé ceci qui à l'air de focntionner:

https://www.excel-downloads.com/threads/vba-commande-pour-activer-le-pave-numerique-ver-num.130298/

Merci Kiki 🙂.

Mais cest quand même complexe, juste pour voir, si une touche est activée 😱.