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

XL 2016 liens pour onglets

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

  • EXEMPLE.xlsm
    23.8 KB · Affichages: 9

job75

XLDnaute Barbatruc
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

  • EXEMPLE(1).xlsm
    28.2 KB · Affichages: 5

bobafric

XLDnaute Occasionnel
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

  • essai excel 32.xlsm
    53.9 KB · Affichages: 1

bobafric

XLDnaute Occasionnel

Pièces jointes

  • essai excel 321.xlsm
    50.7 KB · Affichages: 7

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…