Action si MAJ enfoncé

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2013

• #2

Re : Action si MAJ enfoncé

Bonjour,

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

Cliquez pour agrandir...

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

bonne journée
@+

 

Vote positif 0 Vote négatif

B

babas

XLDnaute Junior

• 30 Décembre 2013

• #3

Re : Action si MAJ enfoncé

C'est avec un userform à l'ouverture

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2013

• #4

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...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Décembre 2013

• #5

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

 

Dernière édition: 30 Décembre 2013

Vote positif 0 Vote négatif

B

babas

XLDnaute Junior

• 30 Décembre 2013

• #6

Re : Action si MAJ enfoncé

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Décembre 2013

• #7

Re : Action si MAJ enfoncé

Re

Oui dans un module Standard.

Et dans ThisWorkBook tu peux mettre un code de ce type

Code:

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.

 

Dernière édition: 30 Décembre 2013

Vote positif 0 Vote négatif