Sommaire avec sélection

[La Vouivre]

Bonjour à tous et un très bon week-end
je reviens vous solliciter pour modifier une macro, je voudrais faire un sommaire, la macro le fais parfaitement, mais je voudrais que certaine page masquée n’apparaisse pas dans le sommaire
et je ne trouve pas la ligne de code à ajouter.
Merci à tous pour votre aide


Voila le code :
Private Sub Worksheet_Activate()
[C5:C100].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next i
[C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess

End Sub

 

[kjin]

Re : Sommaire avec sélection

Bonjour,

Private Sub Worksheet_Activate()
[C5:C100].ClearContents
x = 5
For i = 2 To Sheets.Count
    Set f = Sheets(i)
    nf = f.Name
    If f.Visible Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 3), Address:="", _
        SubAddress:="'" & nf & "'" & "!A1", TextToDisplay:=nf
        x = x + 1
    End If
Next
[C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub

A+
kjin

 

[La Vouivre]

Re : Sommaire avec sélection

Merci pour votre aide
J’ai encore une demande, la macro fonctionne comme je le désir, mais j’ai une feuille sommaire qui est recopiée dans la liste de la feuille sommaire, comment je peux ajouter en plus une sélection de feuilles à ne pas lister

 

[kjin]

Re : Sommaire avec sélection

Re,
Un petit effort !
Tu connais la propriété "Name" (tu l'as écris toi même), il suffit de rajouter cette condition

If f.Visible And UCase(nf) <> "SOMMAIRE" Then

A+
kjin

 

[La Vouivre]

Re : Sommaire avec sélection

Merci beaucoup l’ami Kjin
Excuse-moi d’insister, mais j’ai toujours la feuille sommaire avec le lien hypertexte dans la liste ,et je voudrais qu’elle n’apparaisse plus .

 

[La Vouivre]

Re : Sommaire avec sélection

Un oubli de ma part
La feuille sommaire n’est pas masquée

 

[kjin]

Re : Sommaire avec sélection

Re,

Un oubli de ma part
La feuille sommaire n’est pas masquée

Private Sub Worksheet_Activate()
[C5:C100].ClearContents
x = 5
For i = 2 To Sheets.Count
    Set f = Sheets(i)
    nf = f.Name
    If UCase(nf) <> "SOMMAIRE" Then
        If f.Visible Then
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 3), Address:="", _
            SubAddress:="'" & nf & "'" & "!A1", TextToDisplay:=nf
            x = x + 1
        End If
    End If
Next
[C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub

A+
kjin

 

[La Vouivre]

Re : Sommaire avec sélection

Merci beaucoup l’ami Kjin pour ce magnifique travail de professionnel la macro fonctionne exactement comme je le souhaitais .je te souhaite un très bon week-end

Pour les amis non expérimentés dans Excel.
Crée une feuille sommaire dans le classeur
Le texte de la macro se met directement dans le code de la feuille « click droit sur l’onglet et visualiser le code » la macro fait automatiquement un sommaire trier des feuilles non masquées, ajoute les nouvelles feuilles qui son crée.
Bon week-end à tous