Table des matières
La macro suivante parcourt chaque feuille d'un classeur et écrit le nom de l'onglet de chaque feuille de manière séquentielle dans une feuille de votre choix. Cela peut être pratique pour une liste rapide de chaque feuille d'un classeur avec de nombreuses feuilles.
Répertorier toutes les feuilles de calcul dans un classeur
Pour utiliser la macro, remplacez simplement le mot Sheet1 (il apparaît deux fois) dans le code par le nom de l'onglet où vous souhaitez les résultats. Assurez-vous qu'il n'y a pas d'informations importantes sur l'onglet de sortie car il efface les données avant de les écrire.
| 123456789101112131415 | Feuilles de sous-liste()Dim ws As Feuille de calculDim x en tant qu'entierx = 1Feuilles("Feuille1").Plage("A:A").EffacerPour chaque ws dans les feuilles de calculSheets("Sheet1").Cells(x, 1) = ws.Namex = x + 1WS suivantFin du sous-marin |
