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.