XL 2013 sommaire auto des onglets (non masqué)

[yohann74]

Bonjour à toutes et tous,

Je cherche à faire un sommaire automatique avec l'ensemble de mes onglets (non caché) sur la première page.
Cela fonctionne, mais pour chaque onglet caché il ne me le met pas dans mon sommaire par contre il laisse la case vide, mois je voudrai avoir un sommaire sans vide d'un seul trait avec l'ensemble des onglets non caché.
voici mon code

Sub sommaire()

For i = 2 To Sheets.Count
If Worksheets(i).Visible = xlSheetVisible Then
Cells(1 + i, 1) = Sheets(i).Name
End If
Next i
End Sub
voici mon fichier excel pour être plus clair.
Par avance merci de votre aide.

 

[gosselien]

Re : sommaire auto des onglets (non masqué)

Bonjour,

une solution:

Sub sommaire()
Dim Ws1 As Worksheet
Dim Last As Integer
Set Ws1 = Sheets("sommaire")
For i = 2 To Sheets.Count
  Last = [A65000].End(xlUp).Row
  If Worksheets(i).Visible = xlSheetVisible Then
    Ws1.Cells(Last + 1, 1) = Sheets(i).Name
  End If
Next i
End Sub

 

[jpb388]

Re : sommaire auto des onglets (non masqué)

Bonjour à tous
Une autre

Sub sommaire()
    Dim I%, Nb%
    Nb = 1
    Feuil1.Range("A2:A1500").ClearContents
    For I = 2 To Sheets.Count
     If Worksheets(I).Visible = xlSheetVisible Then Cells(1 + Nb, 1) = Sheets(I).Name: Nb = Nb + 1
    Next I
End Sub

 

[yohann74]

Re : sommaire auto des onglets (non masqué)

Merci à vous c'est parfait