Bonjour,
Le code ci-dessous me permet de récupérer le nom des onglets dans une fiche synthèse et de faire des liens automatiquement. Cependant je cherche à récupérer uniquement que les onglets visibles et pas les feuilles masquées:
Private Sub Worksheet_Activate()
[A2:A200].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next
[A2:A200].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub
Merci pour votre aide
Le code ci-dessous me permet de récupérer le nom des onglets dans une fiche synthèse et de faire des liens automatiquement. Cependant je cherche à récupérer uniquement que les onglets visibles et pas les feuilles masquées:
Private Sub Worksheet_Activate()
[A2:A200].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next
[A2:A200].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub
Merci pour votre aide