XL 2019 sommaire excel avec liens (vba)

[vaninou]

Bonjour à tous

Je débute en vba, j'essaie de me débrouiller mais je pêche un peu.... voir même beaucoup 🙄😱🙂

J'aimerais finaliser ma commande en synthèse, j'essaie de créer un sommaire listant l'ensemble des onglets de mon fichier et qui :

- intègrerait les liens hypertextes actifs dans un tableau (je n'ai pas réussi à créer le tableau 🙁 )
- n'afficherait pas les onglets masqués
- mettrait en forme les liens comme suit : police=calibri , taille=16, couleur=bleu
- avec une mise à jour du sommaire à chaque ouverture de fichier

Merci beaucoup pour votre aide

Voici la commande que j'ai écrite que je ne parviens pas à finaliser.

Sub Synthèse()

Dim Sh As Worksheet
Range("L11").ClearContents
Iw = 12 ' Index écriture

For Each Sh In ActiveWorkbook.Sheets
If Sh.Name = "Menu2" Then GoTo EndConsolidation
Cells(Iw, 12).Select

With Selection
.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sh.Name & "'" & "!" & "A1", TextToDisplay:="Cliquez ici"

End With
Cells(Iw, 12) = Sh.Name

If Sh.Range("L12") = "" Then
Cells(Iw, 11) = "Cliquez ici :"

Else
Cells(Iw, 11) = Sh.Range("L10")

End If

Iw = Iw + 1
EndConsolidation:
Next Sh

End Sub

 

[shinozak]

Bonjour , as tu un fichier ?

 

[Bernard_XLD]

Bonjour vaninou, shinozac, le forum

ce lien te fournira plusieurs solutions fonctionnelles.

Bien cordialement, @+
https://www.excel-downloads.com/threads/creer-sommaire.20058154/post-20437566

 

[vaninou]

Hello
je pensais que le code suffisait désolé.... Voici le fichier et moi je deviens chèvre 😡
j'ai essayé de le retravailler mais à force je crois que je ne vois plus rien.... 😵
merciiii 🙂 😘