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érera rapidement les noms des feuilles de calcul dans le classeur actuel et les placera dans la première colonne du classeur actuel, en commençant à la cellule A1.

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

_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 (2274) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

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