Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 sommaire excel avec liens (vba)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 🙄😱🙂

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…