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.
 

Pièces jointes

  • Sommaire.xlsm
    16.6 KB · Affichages: 27
  • Sommaire.xlsm
    16.6 KB · Affichages: 28

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
 

Discussions similaires

Réponses
4
Affichages
165

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof