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