Dans les classeurs complexes contenant de nombreuses feuilles de calcul, il n’est pas inhabituel d’avoir besoin d’une liste des différentes feuilles de calcul. Une fois que vous avez la liste, vous pouvez l’imprimer ou l’utiliser d’une autre manière, par exemple pour créer une table des matières pour votre classeur. La macro suivante, GetSheets, récupère rapidement les noms des feuilles de calcul dans le classeur actuel. Il les place dans la feuille de calcul actuelle, en commençant à la cellule A1, puis en travaillant vers le bas.

Sub GetSheets()

Dim j As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For j = 1 To NumSheets         Cells(j, 1) = Sheets(j).Name     Next j End Sub

Cette macro écrasera tout ce qui se trouve dans une cellule dont elle a besoin dans le classeur actuel, vous devez donc vous assurer que vous n’avez besoin de rien dans la colonne A de la feuille de calcul. Si vous ne souhaitez rien remplacer, assurez-vous de créer une nouvelle feuille de calcul, puis exécutez la macro à partir de cette feuille de calcul.

Une fois la liste des feuilles de calcul créée, vous pouvez la mettre en forme comme vous le souhaitez, puis l’imprimer.

_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 (12181) 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-Printing_a_Worksheet_List [Impression d’une liste de feuilles de travail].