XL 2016 liens pour onglets

  • Initiateur de la discussion Initiateur de la discussion bobafric
  • Date de début Date de début

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 !

bobafric

XLDnaute Occasionnel
Bonjour à tous je reprends un sujet que je croyais résolu mes excuses à Eastwick
Sur la feuil1 Colonne A une liste de noms (150 lignes)
Chaque nom représentés par un onglet
Peut-on par une macro ou autre créer le lien de chaque feuille avec le nom correspondant.
Il faut absolument qu'il y ait des liens pour chaque onglets.
Je joins un fichier pour exemple
Merci d'avance
 

Pièces jointes

Maintenant si l'on tient au VBA on placera cette macro évènementielle dans le code de la feuille Noms :
VB:
Private Sub Worksheet_Activate()
Dim lig&, s As Object
lig = 2
Application.ScreenUpdating = False
For Each s In Sheets
    If s.Name <> Me.Name Then
        Me.Hyperlinks.Add Cells(lig, 1), "", "'" & s.Name & "'!A1", TextToDisplay:=s.Name
        lig = lig + 1
    End If
Next
Range("A" & lig & ":A" & Rows.Count).Clear 'RAZ
End Sub
Elle se déclenche quand on active la feuille.

A+
 

Pièces jointes

Je me suis peut être mal exprimé et je te prie de m'excuser.
Je ne trouve pas d'autre fil pour ma demande.
C'est surtout pour trouver le moyen de créer les onglets à partir de la liste de noms collés, je pourrai créer le lien de chaque onglet l'un après l'autre mais c'est fastidieux (+ de 150 noms)
Cordialement
 

Pièces jointes

Pièces jointes

- 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
4
Affichages
145
Réponses
10
Affichages
938
Réponses
5
Affichages
337
Retour