Lister feuilles visibles

Bonjour,

Je cherche à lister les feuilles non masquées (visibles) d'un classeur, pour en faire une liste en A1 de la feuil1.

Bon dimanche

Citaro

Bonjour, Feuil1 est utilisé par défaut donc à adapter selon votre classeur (absent dans le message)

Sub fv()
    Dim sh As Worksheet, dl&
    With Feuil1
        For Each sh In Worksheets
            dl = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            If sh.Visible = True Then .Cells(dl, 1) = sh.Name 'affichage des feuilles visibles
            'If sh.Visible = false Then .Cells(dl, 1) = sh.Name 'affichage des feuilles invisibles
        Next
    End With
End Sub

Bonjour Wilder

Merci pour le code, je l'ai placé dans le worhsheet de la Feuil1

Peut on lancer le code à chaque création de feuilles automatiquement?

Merci

Bonjour,

Une proposition, qui prend en compte les feuilles graphiques.

La procédure est à copier dans le module ThisWorkbook du classeur.

Cdlt.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim lRow As Long

    With Feuil1
        .Cells(1).CurrentRegion.ClearContents
        lRow = 1
        For Each Sh In ActiveWorkbook.Sheets
            If Sh.Visible Then
                .Cells(lRow, 1).Value = Sh.Name
                lRow = lRow + 1
            End If
        Next Sh
    End With

End Sub

citaro a écrit :

Bonjour Wilder

Merci pour le code, je l'ai placé dans le worhsheet de la Feuil1

Peut on lancer le code à chaque création de feuilles automatiquement?

Merci

Oui, cf proposition de Jean-Eric

Merci à vous 2

Ce dernier code répond à mes attentes

Bon dimanche

Citaro