Lister feuilles visibles

[Citaro]

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

 

[CHALET53]

Re : Lister feuilles visibles

Bonjour,

Un essai avec ce code :

Sub essai()
i = 1
For Each sht In ActiveWorkbook.Sheets
a = sht.Name
If Worksheets(a).Visible = True Then Range("A" & i) = sht.Name: i = i + 1
Next sht

End Sub


a+

 

[DoubleZero]

Re : Lister feuilles visibles

Bonjour, Citaro, CHALET53, le Forum,

Une autre suggestion :

Option Explicit
Private Sub Worksheet_Activate()
    Dim o As Worksheet
    Range(Range("a2"), Range("a2").End(xlDown)).Value = ""
    For Each o In Worksheets
        If o.Name <> "Sommaire" And o.Visible = -1 Then Range("a" & Rows.Count).End(xlUp)(2) = o.Name
    Next
End Sub

A bientôt

N. B. : Adapter le nom de l'onglet (Sommaire, Feuil1...) et placer le code dans le module de l'onglet concerné.

 

[Citaro]

Re : Lister feuilles visibles

Merci pour vos codes,
J'ai réussi avec un autre
Pour info

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