Création d'un sommaire des feuilles avec lien

Bonjour, je suis nouveau, je n'ai jamais participé à un forum et cherche de l'aide.

J'ai une feuille "Sommaire" qui récupère la liste de toutes les feuilles d'un fichier et les met en lien.

la macro ci dessous marche très bien.

mon soucis : je ne veux pas les feuilles masqués (qui peuvent être éventuellement définies par leur nom ).

voici la macro (qui marche très bien pour ceux qui en ont besoins)

Sub Sommaire()

Worksheets("Sommaire").Range("A5:A200").ClearContents

'efface une plage A5:A200 de la feuille "Sommaire"

Dim i, j As Integer

Dim MENU(5 To 50, 1 To 1) As Variant

Dim FeuilleActive As String

i = 1

FeuilleActive = ActiveSheet.Name

For i = 1 To ThisWorkbook.Sheets.Count

If Sheets(i).Name <> "Menu" Then

Cells(i + 4, 1).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name

End If

Next

End Sub

Merci de votre aide.

Bonjour Cgu2018, le forum,

A tester:

If Sheets(i).Name <> "Menu" And Sheets(i).Visible = True Then

Sub Sommaire()

Worksheets("Sommaire").Range("A5:A200").ClearContents
'efface une plage A5:A200 de la feuille "Sommaire"

Dim i, j As Integer
Dim MENU(5 To 50, 1 To 1) As Variant
Dim FeuilleActive As String

i = 1

FeuilleActive = ActiveSheet.Name

For i = 1 To ThisWorkbook.Sheets.Count

If Sheets(i).Name <> "Menu" And Sheets(i).Visible = True Then
Cells(i + 4, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name

End If
Next

End Sub

Cordialement,

Merci "xorsankukai".

c super, c'est ma première inscription sur un forum et je ne pensai pas avoir une réponse aussi rapide...

Merci et bon week end.

Rechercher des sujets similaires à "creation sommaire feuilles lien"