Appuie sur une touche pour activer une macro

Bonjour,

Je me tourne vers vous aujourd'hui pour vous poser une question:

Peut-on, lorsque l'on se trouve sur une feuille d'un fichier excel, appuyer sur "entrée" pour lancer une macro (Un bouton auquel j'ai affecter une macro)?

Par exemple lorsque l'on a un tableau dans une feuille, et pour être plus rapide, on ajuste a appuyer sur "entrée" pour l'imprimer... Ce genre de chose.

Merci par avance!!

Bonjour,

Un élément de réponse avec "Exécuter une macro en appuyant sur une touche de raccourci utilisant la touche Ctrl"

https://support.office.com/fr-ca/article/Ex%C3%A9cuter-une-macro-5e855fd2-02d1-45f5-90a3-50e645fe3155?ui=fr-FR&rs=fr-CA&ad=CA#bmrunmacroshortcut

A+

Bonsoir, frangy, iliasse

Un essai, entre guillemets, le nom de la macro à exécuter

Code a placer dans le ThisWorkbook du fichier

Private Sub Workbook_Open()

UserFormAIDE.Show

' Récupère les touches de fonctions pour les attribuer aux macros

Application.OnKey "{F5}", Procedure:="Nouv"

Application.OnKey "{F6}", Procedure:="Voir_BD"

Application.OnKey "{F7}", Procedure:="Ouvrir_Aide"

Application.OnKey "{F8}", Procedure:="Zone1"

Application.OnKey "{F9}", Procedure:="Zone2"

Application.OnKey "{F10}", Procedure:="Zone3"

Application.OnKey "{F11}", Procedure:="Zone4"

Application.OnKey "{F12}", Procedure:="Zone5"

End Sub

Amicalement

Pierrot

Bonjour,

Merci de vos réponse, Cappe Pierre, j'ai essayé d'utiliser ta méthode mais lorsque je défini une macro pour la touche "F12" ça ne fonctionne pas. en effet, il exécute "enregistrer sous" ... C'est bien la fonction de "F12" mais je pensais qu'en paramétrant ma macro lors de l'appui sur cette touche ça lancerai ma macro :

Sub Imprimer()
ActiveSheet.PageSetup.RightHeader = "&P de &N"
ActiveSheet.PrintOut
Sheets("Panneau de contrôle").Select
InterfaceGraphique2.Show 0
End Sub

Bonjour,

Votre macro ne fonctionne pas

Ce code est valable pour toutes les feuilles actives

a placer dans un module

et dans le ThisWorkbook

Private Sub Workbook_Open()

                                                  ' Récupère les touches de fonctions pour les attribuer aux macros
     Application.OnKey "{F5}", Procedure:="Bonjour"
       Application.OnKey "{F12}", Procedure:="Imprimer"

End Sub

Sub Imprimer2()
Application.Dialogs(xlDialogPrintPreview).Show
End Sub

Amicalement

Pierrot

iliasse

J'ai oublié de préciser qu'il faut enregistrer le classeur le fermer et ensuite l'ouvrir, Workbook_Open veut bien dire à l'ouverture

Pierrot

Parfait, il fallait bien fermer et ouvrir le fichier après la modification.

symbole pour définir la touche "entrée" : "~"

Voici le code: (Très simple, très pratique)

Application.OnKey "~", "Imprimer"