Discussion :

[eugiba]

Bonjour,

j'ai regardé beaucoup d'articles concernant la fonction OnKey, mais je n'arrive toujours pas à l'appliquer à mon utilisation et ça m'énerve !!!

J'ai une userform et lorsque j'effectue un raccourci clavier (Ctrl + S) la propriété Width du userform doit être modifié pour l'agrandir.

Problème : Lorsque le userform s'affiche, rien ne se passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub userform_activate()
    Application.OnKey "^s", "Agrandir"
End Sub
 
Sub Agrandir()
    userform1.Width = 540.5
End sub

Et si je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnKey "^s", MsgBox ("Texte")

à la place de la ligne 2; la msgbox va s'afficher sans que j'effectue le raccourci clavier ...
Et ce n'est non plus pas cette ligne qui bug

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

userform1.Width = 540.5

Je comprends pas
Merci pour votre aide !!

[Philippe Tulliez]

Bonjour,
Je ne crois pas que tu puisses utiliser le raccourci clavier au départ d'un Userform avec Application.OnKey
Si tu utilises ce code et que tu as une Procédure appelée Test, c'est au départ d'Excel que tu peux enclencher cette procédure en utilisant le raccourci clavier Alt+z

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnKey "%z", "Test"

[eugiba]

Merci pour cette réponse.
Effectivement OnKey ne fonctionne pas pour les userforms.

J'ai cependant trouvé une autre "solution" que j'arrive à faire fonctionner à moitié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyF1 Then
      UserForm1.Width = 300
   End If
End Sub

Ce code fonctionne très bien avec un userform vierge. Mais avec mon userform sur laquelle je travaille rien ne se passe...

Puis j'ai ajouté un bouton sur le userform vierge et là ça ne fonctionnait plus.

Donc pouvons nous contourner ce problème et faire un keyDown sur un userform avec des boutons ??
Je cherche et je vous tiendrai au courant si il y a du nouveau...

[mercatog]

Bonjour

Puis j'ai ajouté un bouton sur le userform vierge et là ça ne fonctionnait plus.

Parce que c'est ce bouton qui a le focus, et l'évènement KeyDown est associé désormais au bouton et non à l'userform
Dès lors, tu dois avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyF1 Then Me.Width = 500
End Sub

[eugiba]

Âlors j'ai fait ça, suite à la réponse de mercatog. C'est pas la meilleure solution mais ça me va déja bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Frame1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Ne pas oublier de cliquer sur le frame1 pour qu'il prenne le focus !!
   If KeyCode = vbKeyF2 Then Me.Width = 440    'Agrandi le userform si F1 appuyé
   If KeyCode = vbKeyF1 Then Me.Width = 340.5 'Remet à la taille initiale si F2 appuyé
End Sub

Le pied serai de pouvoir faire la même chose lors d'un raccourci (ex: ALT+ z) à la place d'une touche. Mais pour ça il faut combiner des KeyDown et c'est se compliquer pour pas grand chose...
Merci

[mercatog]

Bonjour
utilise les combinaison de KeyCode et Shift (Regarde l'aide sur le mot KeyDown)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Frame1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Ne pas oublier de cliquer sur le frame1 pour qu'il prenne le focus !!
 
If KeyCode = 90 And Shift = 4 Then Me.Width = 440 '90:z     4:Tab
 
End Sub