Existe-t-il un raccourci clavier «voir toutes les feuilles» dans Excel 2013 sous Windows?

Lorsque je clique avec le bouton droit de la souris sur les flèches situées dans le coin inférieur gauche d'Excel, une fenêtre répertoriant toutes les feuilles s'affiche (comme illustré ci-dessous):

[

Je ne pouvais trouver aucun raccourci clavier pour afficher ceci, ni déclarer un nouveau raccourci lié à cette fenêtre. Y at-il un raccourci pour cette option?

Je ne crois pas qu'il existe un raccourci direct pour ce dialogue.

Vous pouvez obtenir le même résultat en utilisant un petit peu de VBA dans une macro, puis en l'attribuant à un raccourci clavier de votre choix.

Sub ShowAllSheets()
  Application.CommandBars("Workbook tabs").ShowPopup
End Sub

• La source
• Plus d'informations

Semblable à la réponse correcte de Techie, voici une solution qui fonctionne lorsque vous avez plus de 15 feuilles (et permet également de cliquer sur une lettre pour mettre en surbrillance la feuille commençant par cette lettre):

Sub Select_Sheet()
If ActiveWorkbook.Sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs").ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
End If
End Sub

Bien que pour une raison inconnue , il ne fonctionne pas lors de l' activation en utilisant le clavier (comme mentionné dans la source et un autre exemple qui a également le travail dsnt lors de l' utilisation raccourci est ici ). Si quelqu'un sait comment corriger le code ci-dessus pour qu'il fonctionne avec la macro, n'hésitez pas à le corriger.

J'aimerais répondre à Stenemo mais c'est un nouveau compte et j'ai besoin de 50 points de réputation ou quelque chose du genre.

Quoi qu'il en soit, cela fonctionne:

Sub Sheet_Index()

If Application.CommandBars("workbook tabs").Controls(16).Caption Like "More Sheets*" Then
    Application.ScreenUpdating = False
    If WINDOWS_VER > 5 Then
        If Application.Version = "12.0" Then
            Application.SendKeys "{end}~"""
            Application.CommandBars("workbook tabs").ShowPopup
        Else
            Application.SendKeys "{end}~"
            Application.CommandBars("workbook tabs").Controls(16).Execute
        End If
    Else
        Application.SendKeys "{end}~"
        Application.CommandBars("workbook tabs").ShowPopup
    End If
    Application.ScreenUpdating = True

Else
    Application.CommandBars("workbook tabs").ShowPopup
End If

Application.ScreenUpdating = True

End Sub

Source: https://www.reddit.com/r/excel/comments/383b3z/keyboard_shortcut_for_listing_all_the_worksheet/crs7pah/?utm_source=share&utm_medium=web2x

À votre santé.

Modifier pour une raison quelconque si je l’utilise avec un raccourci clavier, il active et désactive mon verrouillage numérique à chaque exécution.