Sommaire des feuilles actives

Bonjour,

J'ai un classeur excel qui me permet de faire le suivi de mes chantiers (un chantier = une feuille).

Quand un chantier est terminé, je masque l'onglet.

Comme je commence à avoir pas mal de feuilles dans ce classeur, j'ai créé un sommaire.

Je souhaiterai que mon sommaire puisse différencié les feuille affichées et les feuilles masquées mais je bloque.

Quelqu'un peut-il m'aider à résoudre ma problèmétaique?

Voici la commande actuellement créer:

Sub creerSommaire()

If Worksheets(1).Name = "Sommaire" Then

Application.DisplayAlerts = False

End If

[a1] = "SOMMAIRE DU CLASSEUR"

[a7] = "Feuilles actives - Chantiers en cours"

[e7] = "Feuilles masquées - Chantiers terminés"

Dim ligne As Integer

ligne = 8

Dim sh As Worksheet

For Each sh In Worksheets

ActiveSheet.Hyperlinks.Add anchor:=Cells(ligne, 1), Address:="", SubAddress:="'" & sh.Name & "'!A1", TextToDisplay:=sh.Name

ligne = ligne + 1

Next

End Sub

Bonjour et

Dans ta boucle For, ajoute un test, sous la forme If sh.Visible Then

... je suppose que tu ne vas pas essayer de créer des liens pointant vers des feuilles masquées ?

Merci pour ton aide. Mais effectivement, j'aimerais avoir la liste des onglets masqués sur une seconde colonne....

Re-bonjour,

Je disais supposer que tu ne créerais pas de liens vers les feuilles masquées

Dresser une liste, ce n'est pas la même chose

Quoi qu'il en soit, ceci créera les liens vers les feuilles (visibles ou non) dans des colonnes distinctes, mais les liens en colonne E ne seront pas fonctionnels ... tu adapteras à tes besoins

Sub creerSommaire()
'If Worksheets(1).Name = "Sommaire" Then
'Application.DisplayAlerts = False
'End If
[a1] = "SOMMAIRE DU CLASSEUR"
[a7] = "Feuilles actives - Chantiers en cours"
[e7] = "Feuilles masquées - Chantiers terminés"
Dim ligne As Integer
ligneV = 8
ligneM = 8
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Sommaire" Then
    If sh.Visible Then
        ActiveSheet.Hyperlinks.Add anchor:=Cells(ligneV, 1), Address:="", SubAddress:="'" & sh.Name & "'!A1", TextToDisplay:=sh.Name
        ligneV = ligneV + 1
    Else
        ActiveSheet.Hyperlinks.Add anchor:=Cells(ligneM, 5), Address:="", SubAddress:="'" & sh.Name & "'!A1", TextToDisplay:=sh.Name
        ligneM = ligneM + 1
    End If
End If
Next
End Sub

Pas ajouté de lien vers la feuille "Sommaire"

Si la macro doit être exécutée plusieurs fois, il faudra songer à tout effacer avant !