Comment lister toutes les feuilles de calcul dans Excel VBA

Instructions

1. Démarrez Microsoft Excel et ouvrez votre classeur.

2. Appuyez sur "Alt + F8" pour ouvrir la fenêtre Macros. Tapez "GetSheetNames" dans la case "Nom de la macro" puis cliquez sur "Créer".

3. Entrez le code suivant dans l'éditeur VBA.

   GetSheetNames sub ()

   
   
   
   
   

   Dim wSheet comme feuille de travail

   Pour chaque wSheet dans les feuilles

   On Error Resume Next
   ActiveCell.Value = wSheet.Name
   ActiveCell.Offset (1, 0) .Select

   WSheet Suivant

   
   
   

   End Sub

4. Fermez l'éditeur VBA pour revenir à votre classeur.

5. Mettez en surbrillance une cellule dans votre feuille de calcul. Appuyez sur "Alt + I" puis "C" pour créer une colonne vide.

6. Cliquez sur la première cellule vide de la nouvelle colonne.

7. Appuyez sur "Alt + F8" pour ouvrir la fenêtre Macros nouveau. Sélectionnez "GetSheetNames" et cliquez ensuite sur "Exécuter".

Conseils Avertissements

• Si vous ne souhaitez pas créer une nouvelle colonne de la liste, sélectionnez une cellule vide à la place. Assurez-vous qu'il ya assez de cellules pour contenir la liste. Par exemple, si le classeur contient 20 feuilles, choisissez une cellule avec 20 ou plusieurs cellules vides en dessous.
• Par défaut, les macros sont désactivées pour Excel. Pour les activer, cliquez sur le bouton Microsoft Office, allez dans "Options Excel" et assurez-vous que "Afficher l'onglet Développeur dans le ruban" est cochée. Cliquez sur "OK". Dans certains cas, vous pouvez avoir besoin de redémarrer MS Excel pour que les modifications prennent effet.