Discussion :

[bengal]

Bonjour,


J’essaie d’affecter via un code VBA un raccourci clavier à une macro.

Le raccourci souhaité pour appeler la macro : MAJ+F1
Après plusieurs recherches sur internet, j'ai inséré le code suivant dans le module "ThisWorkbook" de mon classeur de macro personnel ;

Code :

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

1
2
3
4
5
Private Sub Workbook_activate()
 
     Application.OnKey "+{F1}", "Macro1"
 
End Sub

Le raccourci fonctionne, mais uniquement lorsque je suis dans le classeur de macros personnelles.

Comment puis-je faire pour que le raccourci soit exécutable dans l'ensemble des classeurs ?

Merci pour votre aide !

Benjamin

[78chris]

Bonjour

Je ne saurais trop te conseiller de nommer correctement tes procédures : Macro1 ne voulant rien dire, bonjour la maintenance...

Sous récerve que la macro soit dans le classeur de macro personnelles et donc de portée universelle

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
    With Application
        .OnKey "+{F1}", "Macro1"
    End With
End Sub

[bengal]

Merci beaucoup cela fonctionne !!
Et je prends en compte les conseils !