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
Et si je mets
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à la place de la ligne 2; la msgbox va s'afficher sans que j'effectue le raccourci clavier ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.OnKey "^s", MsgBox ("Texte")
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 !!
Partager