Comment créer une liste de tous les noms de feuilles de calcul d'un classeur ?

Imaginez que vous avez un classeur avec plusieurs feuilles de calcul et que vous souhaitez lister automatiquement tous les noms de feuilles, avec des hyperliens cliquables pour naviguer vers chaque feuille correspondante. Ce tutoriel propose des méthodes rapides et efficaces pour générer une liste des noms de feuilles de calcul dans Excel.

Obtenir une liste de tous les noms de feuilles de calcul d'un classeur dynamiquement avec des formules

Obtenir une liste de tous les noms de feuilles de calcul d'un classeur avec Kutools pour Excel

Obtenir une liste de tous les noms de feuilles de calcul d'un classeur avec du code VBA

Obtenir une liste de tous les noms de feuilles de calcul d'un classeur dynamiquement avec des formules

Dans Excel, vous pouvez définir un nom de plage, puis appliquer une formule pour lister tous les noms de feuilles du classeur actuel, suivez les étapes suivantes :

1. Allez dans "Formules" > "Gestionnaire de noms", voir capture d'écran :

2. Dans la boîte de dialogue "Gestionnaire de noms", cliquez sur le bouton "Nouveau", voir capture d'écran :

3. Dans la fenêtre "Nouveau nom" qui s'affiche, spécifiez un nom dans la zone de texte "Nom", puis copiez la formule ci-dessous dans la zone de texte "Fait référence à", voir capture d'écran :

=GET.WORKBOOK(1)&T(NOW())

4. Ensuite, cliquez sur "OK" > "Fermer" pour fermer les boîtes de dialogue. Maintenant, rendez-vous sur une feuille où vous souhaitez lister tous les noms de feuilles, puis entrez la formule suivante dans une cellule vide :

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Remarque : Dans la formule ci-dessus, "Sheetnames" est le nom de plage que vous avez créé à l'étape 3.

5. Ensuite, faites glisser la poignée de recopie vers le bas jusqu'à ce que des cellules vides apparaissent, et maintenant, tous les noms de feuilles du classeur actuel ont été listés comme le montre la capture d'écran ci-dessous :

6. Si vous souhaitez créer un lien hypertexte pour chaque feuille, utilisez la formule ci-dessous :

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Remarque : Dans la formule ci-dessus, "A2" est la cellule contenant le nom de la feuille, et "A1" est la cellule où vous souhaitez que la cellule active soit placée. Par exemple, si vous cliquez sur le texte du lien hypertexte, cela positionnera la cellule A1 de la feuille.

7. Maintenant, lorsque vous cliquez sur le texte du lien hypertexte, il vous amènera à cette feuille, voir la démonstration ci-dessous :

Obtenir une liste de tous les noms de feuilles de calcul d'un classeur avec Kutools pour Excel

Avec l'utilitaire "Créer une table de liens" de l'add-in tiers "Kutools pour Excel", vous pouvez créer une liste de noms de feuilles en un clic et y accéder via des liens hypertexte.

1. Cliquez sur "Kutools Plus" > "Feuille de calcul" > "Créer une table de liens", voir capture d'écran :

2. Dans la boîte de dialogue "Créer une table de liens", veuillez spécifier les paramètres suivants :

(1.) Choisissez le "style d'index des feuilles" que vous préférez, vous pouvez créer les noms des feuilles avec des liens hypertexte ou avec des boutons macro. (2.) Entrez les noms des feuilles pour l'index des feuilles. (3.) Spécifiez l'emplacement de l'index des feuilles. (4.) Indiquez combien de colonnes vous souhaitez utiliser dans la nouvelle feuille pour afficher les noms des feuilles.

3. Après avoir terminé les paramètres, cliquez sur "OK". Tous les noms des feuilles ont été listés avec des liens dans une nouvelle feuille du classeur actuel. Voir capture d'écran :

noms de feuilles avec des liens hypertexte	noms de feuilles avec des boutons macro

Obtenir une liste de tous les noms de feuilles de calcul d'un classeur avec du code VBA

1. Maintenez les touches "ALT" + "F11" enfoncées, et cela ouvre la fenêtre "Microsoft Visual Basic pour Applications".

2. Cliquez sur "Insérer" > "Module", puis collez la macro suivante dans la fenêtre "Module".

VBA : Liste de tous les noms de feuilles avec des liens hypertexte dans une nouvelle feuille :

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. Appuyez sur la touche "F5" pour exécuter cette macro. Tous les noms de feuilles du classeur actif sont désormais listés dans une nouvelle feuille nommée "Index", avec des liens hypertexte qui permettent de naviguer vers chaque feuille respective. Voir la capture d'écran ci-dessous :

Articles connexes