XL 2013 sommaire auto des onglets (non masqué)

yohann74

XLDnaute Nouveau
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.
 

Fichiers joints

gosselien

XLDnaute Barbatruc
Re : sommaire auto des onglets (non masqué)

Bonjour,

une solution:

Code:
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

XLDnaute Accro
Re : sommaire auto des onglets (non masqué)

Bonjour à tous
Une autre
VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas