Action si MAJ enfoncé

[babas]

Bonjour à tous,

Une petite question vient de me traverser l'esprit. J'ai un fichier avec une demande de login à l'ouverture.
Je souhaiterais savoir s'il y avait la possibilité d'afficher quelque chose lorsque le verrouillage des majuscules est activé.

En vous remerciant par avance,

 

[Pierrot93]

Re : Action si MAJ enfoncé

Bonjour,

J'ai un fichier avec une demande de login à l'ouverture.

A voir, possible si tu utilises un userform, sinon voir peut être aussi du coté des APIs windows...

bonne journée
@+

 

[babas]

Re : Action si MAJ enfoncé

C'est avec un userform à l'ouverture

 

[Pierrot93]

Re : Action si MAJ enfoncé

Re,

regarde dans l'aide du coté de l'événement "KeyDown" d'un textbox, et particulièrement son argument "Shift" devrait te permettre d'avancer...

 

[Staple1600]

Re : Action si MAJ enfoncé

Bonjour à tous

Voici qui permettra de savoir si VERR MAJ et VERR NUM sont actives ou pas
Code vba:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long)
As Integer
'source: Robin Hammond
Private Const kCapital = 20
Private Const kNumlock = 144

Public Function CapsLock() As Boolean
CapsLock = KeyState(kCapital)
End Function

Public Function NumLock() As Boolean
NumLock = KeyState(kNumlock)
End Function

Private Function KeyState(lKey As Long) As Boolean
KeyState = CBool(GetKeyState(lKey))
End Function

PS: Ces fonctions renvoient VRAI ou FAUX
Donc à utiliser avec If / Enf If par exemple
If CapsLock Then
'ton code ou un MsgBox qui affiche l'état de la touche
Else
End IF

 

[babas]

Re : Action si MAJ enfoncé

Merci à tous les deux.
Ton code Staple, je le mets dans un module ? !

 

[Staple1600]

Re : Action si MAJ enfoncé

Re

Oui dans un module Standard.

Et dans ThisWorkBook tu peux mettre un code de ce type

Private Sub Workbook_Open()
If CapsLock Then
MsgBox "Attention la touche Caps Lock est activée!", vbCritical
End If
End Sub

PS: test OK sur mon PC, si la touche MAJ est enfoncée, le message s'affichera.