1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)

VBA pour Excel - Touches de fonction (F1 à F12) [Résolu]

Signaler
-
 Utilisateur anonyme -
Je débute en VBA dans Excel et ai créé un Tableau "Menu" qui, suivant le choix que je fais ouvre telle ou telle feuille qui sont soit des listes, soit des formulaires. Je voudrais, si possible, pouvoir revenir à la 1ère feuille intitulée "MENU" en appuyant sur une touche F1 ou F2 ou F3, peu importe (entre F1 et F12) au lieu de devoir placer dans chaque feuille un bouton "Retour au Menu".
Je ne trouve pas la solution. Merci pour votre aide.
Afficher la suite

5 réponses

Réponse 1 / 5
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
 112
Pas bonjour non plus

https://officepourtous.com/naviguer-rapidement-entre-feuilles-excel/
Signaler
Utilisateur anonyme
Bonjour, et merci pour la réponse.J
e connaissais cette procédure et ce que je cherche c'est de pouvoir au départ de n'importe quelle feuille, en appuyant sur une touche de fonction, par exemple F4, revenir à la feuille N° 1 et indiquer sur chaque feuille "F4 = Menu" de sorte que la commande s'exécute uniquement dès que j'appuie sur F4.
Signaler
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
 112 > Utilisateur anonyme
Bonjour,

Avec un raccourci clavier:

Faire Alt F11 pour accéder à l'éditeur
Inserer un Module et mettre ce code 

Option Explicit
Sub retour()
Sheets("Feuil1").Activate 'adapter nom feuille
End Sub


ensuite faire un raccourci clavier en allant dans Dévelopeur - Macros

voir ceci:



voilà c'est tout simple
Réponse 2 / 5

Rebonjour et merci.
Ceci correspond mieux à ce que je souhaite réaliser. Je vais tester.
Bonne journée.
Signaler
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
 112
voir ceci pour mettre la touche F12

http://www.info-3000.com/vbvba/raccourciclavier.php

ce qui donne: 

Option Explicit
Sub Truc()
  Application.OnKey "{F12}", "retour"
End Sub
Sub retour()
Sheets("Feuil1").Activate 'adapter nom feuille
End Sub


voilà à toi de choisir

@+ Le Pivert
Réponse 3 / 5

Bonjour Le Pivert.
Merci beaucoup
Réponse 4 / 5

Bonjour Pivert,
Je viens de mettre en forme les instructions que tu m'as données et cela fonctionne à merveille.
Merci bien.
Signaler
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
 112
de rien, pense à cocher Marquer comme résolu en haut à droite

@+ Le Pivert
Réponse 5 / 5

OK, c'est fait.
Répondre Posez votre question