Vérification de l’état de la touche clavier« Verrouillage majuscule »

[dbonneaud]

Bonjour à tous,
Existe-t-il une procédure VBA permettant de vérifier, au lancement d’une UserForm, si la touche clavier« Verrouillage majuscule » est activée.
Merci pour votre aide.

 

[Dormeur74]

Re : Vérification de l’état de la touche clavier« Verrouillage majuscule »

Les API le permettent. Tu colles celles-ci dans un module.

Option Explicit

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long
Const VK_CAPITAL = &H14

Sub Test()
    Dim etat As Boolean
    Dim keys(0 To 255) As Byte
    
    GetKeyboardState keys(0)
    etat = keys(VK_CAPITAL)
    MsgBox etat
End Sub

 

[dbonneaud]

Re : Vérification de l’état de la touche clavier« Verrouillage majuscule »

Merci et bonne journée