Si vous avez un très grand nombre de feuilles de calcul dans un classeur, vous souhaiterez peut-être récupérer les noms de ces feuilles de calcul et les placer dans leur propre feuille de calcul. Par exemple, vous pouvez les souhaiter au même endroit pour pouvoir les utiliser dans une table des matières ou d’une autre manière. La macro suivante, GetSheets, récupère rapidement les noms des feuilles de calcul dans le classeur actuel et les place dans le classeur actuel, en commençant par la cellule actuellement sélectionnée.

Sub GetSheets()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         iRow = iRow + 1     Next w End Sub

Si vous souhaitez créer une véritable table des matières où les noms de feuille sont en fait des hyperliens vers les feuilles de calcul, vous pouvez modifier la macro de la manière suivante:

Sub MakeTOC()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer     Dim sTemp As String

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         sTemp = "'" & w.Name & "'!A1"

ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, iCol), _           Address:="", SubAddress:=sTemp, TextToDisplay:=w.Name         iRow = iRow + 1     Next w End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11679) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Retrieving_Worksheet_Names [Récupération des noms de feuille de travail].