XL 2016 Sommaire hyperliens avec uniquement les onglets visibles

[RH_FFF]

Bonjour à tous,

Je souhaite créer un sommaire avec des hyperliens dynamiques. Cependant, je voudrais voir apparaitre que les onglets visibles dans mon sommaire.

Voici mon code VBA:
Private Sub Worksheet_Activate()
[A3:A100].ClearContents
Range("A3").Select
For i = 1 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Avec ce code les onglets masqués apparaissent.

Merci pour votre aide

 

[zebanx]

Bonsoir RH_FFF, le forum

Ca peut-être ?

Private Sub Worksheet_Activate()
[A3:A100].ClearContents
Range("A3").Select
For i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
ActiveCell.Offset(1, 0).Select
Else
End If
Next i
End Sub

 

[RH_FFF]

Bonjour Zebanx,

Tu es un chef. Merci à toi

Bonne journée

 

[RH_FFF]

Dois-je cloturer la discussion?

Si oui, comment je fais?

Amitiés

 

[RH_FFF]

Bonjour zebanx,

Merci pour ton retour. tu es un chef, c'est tout bon pour moi

 

[zebanx]

Bonjour RH_FFF,

Désolé - absent. Non c'est ok, certains mettent résolu mais tu peux laisser tel quel.

Bonne soirée.