Sommaire sans les feuilles masquées

[patinator]

Bonjour à toutes et tous,

J'ai un petit soucis sur un script, qui me créer un Sommaire automatiquement lorsque je clique sur la feuille 1, le problème c'est que si j'ai des feuilles masquées, elles apparaissent dans le menu. Je ne sais pas quoi faire ????

Merci pour votre aide, je joint le fichier exemple.

Bonne fin de journée.

Patine

 

[camarchepas]

Re : Sommaire sans les feuilles masquées

Bonjour ,

une test sur la propriété visible de la feuille et le tour est joué

 

[Robert]

Re : Sommaire sans les feuilles masquées

Bonjour Patinator, bonjour le forum,

Une condition suffisait :

For i = 2 To Sheets.Count
    If Sheets(i).Visible = True Then
        nf = Sheets(i).Name
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 4, 2), Address:="", SubAddress:="'" & _
           nf & "'" & "!A1", TextToDisplay:=nf
    End If
Next i

Personnellement, j'aurais aussi écrit ce code à l'ouverture du classeur...

Private Sub Workbook_Open()
Sheets("Feuil1").Range("B5:B23").ClearContents
For i = 2 To Sheets.Count
    If Sheets(i).Visible = True Then
        nf = Sheets(i).Name
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 4, 2), Address:="", SubAddress:="'" & _
           nf & "'" & "!A1", TextToDisplay:=nf
    End If
Next i
End Sub

[Édition]
Collision avec le magicien que je salue au passage...

 

[patinator]

Re : Sommaire sans les feuilles masquées

Bonjour Robert,

Merci beaucoup ca fonctionne super.

Cordialement

Patinator

 

[Robert]

Re : Sommaire sans les feuilles masquées

Bonjour le fil, bonjour le forum,

Arf Patinator... Çamarchepas est encore devenu invisible ! Je lui ai pourtant dit d'arrêter les potions magiques... Bon, je le remercie pour toi alors...