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