Comment créer une liste de toutes les feuilles de calcul du classeur actif à l'aide d'une macro VBA
Souhaitez-vous créer un tableau de toutes les feuilles du classeur actif ? Utilisez la macro suivante :
Sous ShowTablesheets ()
Dim Row aussi longtemps
Feuille de cote en tant que feuille de calcul
Estomper la nouvelle feuille en tant que feuille de calcul
Définir Neublatt = ActiveWorkbook.Worksheets.Add
Ligne = 1
Pour chaque feuille dans ActiveWorkbook.Worksheets
Si Sheet.Name Nouveau Sheet.Name Alors
Nouvelle feuille.Cellules (ligne, 1) = feuille.nom
Ligne = ligne + 1
Fin si
Fiche suivante
Fin du sous-marin
La macro crée une nouvelle feuille de calcul dans le classeur actif dans lequel les noms de toutes les feuilles de calcul sont enregistrés. Seule la nouvelle feuille de synthèse est exclue de la liste. La figure suivante montre à quoi peut ressembler le résultat :
Pour entrer dans la macro, ouvrez l'éditeur VBA dans Excel à l'aide de la combinaison de touches ALT F11. Dans cet éditeur, sélectionnez la commande INSERER - MODULE et saisissez la macro. Vous démarrez la macro à partir d'Excel en utilisant la combinaison de touches ALT F8.