Sommaire sans les feuilles masquées

patinator · 19 Août 2014

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 · 19 Août 2014

Re : Sommaire sans les feuilles masquées

Bonjour ,

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

Robert · 19 Août 2014

Re : Sommaire sans les feuilles masquées

Bonjour Patinator, bonjour le forum,

Une condition suffisait :

Code:

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

Code:

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 · 19 Août 2014

Re : Sommaire sans les feuilles masquées

Bonjour Robert,

Merci beaucoup ca fonctionne super.

Cordialement

Patinator

Robert · 19 Août 2014

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

Sommaire sans les feuilles masquées

patinator

XLDnaute Nouveau

Pièces jointes

camarchepas

XLDnaute Barbatruc

Pièces jointes

Robert

XLDnaute Barbatruc

patinator

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Discussions similaires

Sommaire sans les feuilles masquées

patinator

XLDnaute Nouveau

Pièces jointes

camarchepas

XLDnaute Barbatruc

Pièces jointes

Robert

XLDnaute Barbatruc

patinator

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency