Comment lister toutes les feuilles visibles ou masquées d'un classeur ?

Si vous avez un grand classeur contenant certaines feuilles de calcul masquées, et que vous devez maintenant lister toutes les feuilles visibles et masquées séparément dans une feuille de calcul comme le montre la capture d'écran suivante. Dans cet article, je vais expliquer comment lister toutes les feuilles visibles et masquées dans Excel.

Lister toutes les feuilles visibles et masquées séparément avec du code VBA

Lister toutes les feuilles visibles dans Excel avec Kutools pour Excel

Lister toutes les feuilles visibles et masquées séparément avec du code VBA

Pour lister les noms des onglets visibles et masqués dans une feuille de calcul, le code VBA suivant peut vous aider, veuillez procéder comme suit :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Lister toutes les feuilles visibles et masquées séparément :

Sub NameSheets()
'Updateby Extendoffice
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, toutes les feuilles visibles, masquées et très masquées sont listées séparément dans une nouvelle feuille comme le montre la capture d'écran suivante :

Lister toutes les feuilles visibles dans Excel avec Kutools pour Excel

Si vous avez Kutools pour Excel, avec sa fonction Créer une table de liens, vous pouvez rapidement lister toutes les feuilles visibles du classeur actuel avec des liens hypertexte vers chaque onglet.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

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

2. Dans la boîte de dialogue Créer une table de liens :

(1.) Sélectionnez Créer des hyperliens sous la section Style de l'index des feuilles ;

(2.) Entrez un nom de feuille de calcul pour l'index des feuilles.

(3.) Spécifiez l'emplacement de l'index des feuilles de calcul.

(4.) Indiquez combien de colonnes vous souhaitez utiliser pour afficher les noms des feuilles de calcul dans l'index des feuilles.

3. Cliquez ensuite sur le bouton Ok, toutes les feuilles visibles ont été listées dans une nouvelle feuille, à l'exclusion des feuilles masquées, voir la capture d'écran :