ALT+X pour fermer userform

[sn00py]

Bonjour à tous les membres qui me liront 🙂

Je cherche à fermer un userform par une séquence de touches, ici ALT+X. J'ai vu beaucoup d'exemples avec userform_keydown, keypress, keycode = keyascii=, etc... et je n'y arrive pas...

Quelqu'un aurait-il une solution ?
Merci.

sn00py

 

[Hervé]

Re : ALT+X pour fermer userform

Bonjour

a essayer (j'ai pas fait trop de test) :

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 4 And KeyCode = 88 Then Unload Me
End Sub

salut

 

[sn00py]

Re : ALT+X pour fermer userform

Salut Hervé,

J'ai testé et il ne se passe rien lorsque je fais alt+x. Je ne sais pas si cela a un lien : par défaut, dans mon userform j'ai un focus dans un combobox.

thX

 

[wilfried_42]

Re : ALT+X pour fermer userform

bonjour à tous

Regarde dans l'aide : Onkey
dans l'initialize de userform
Application.onkey touche, action

sub action()
application.onkey touche ' pour annuler l'interception
unload UserForm1
end sub

je ne peux pas te donner la syntax exact, recherche dans l'aide VBA, perso, je suis au boulot et l'aide n'est pas installée

 

[Hervé]

Re : ALT+X pour fermer userform

re snoopy, salut wilfried

si tu as le focus sur un combobox et si tu n'a qu'un controle sur ton usf, il suffit d'attacher la ligne de code à l'evenementielle du controle :

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 4 And KeyCode = 88 Then Unload Me
End Sub

si tu as plusieurs controles il te faudra attacher ce code à chacun.

tu sais que alt+F4 ferme un usf ?

wilfried, de mémoire application.onkey ne fonctionne pas avec un usf.

salut 🙂