XL 2019 sommaire excel avec liens (vba)

vaninou

XLDnaute Nouveau
Bonjour à tous

Je débute en vba, j'essaie de me débrouiller mais je pêche un peu.... voir même beaucoup :rolleyes::eek::)

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
 

vaninou

XLDnaute Nouveau
Hello
je pensais que le code suffisait désolé.... Voici le fichier et moi je deviens chèvre :mad:
j'ai essayé de le retravailler mais à force je crois que je ne vois plus rien.... o_O
merciiii :) 😘
 

Pièces jointes

  • Projot_v2.xlsm
    985.2 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
290 755
Messages
1 910 209
Membres
176 539
dernier inscrit
altheamain
Haut Bas