Lister onglets sur une feuille avec classement et liens

  • Initiateur de la discussion Initiateur de la discussion hyperion66
  • 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 !

H

hyperion66

Guest
Bonjour,

J'ai un classeur excel avec un onglet par client. Chaque onglet porte le nom du client.
Je souhaiterai, si cela est possible, récapituler sur un onglet "listing" tous les onglets classés par ordre alphabétique....avec un lien vers chaque onglet.
Ainsi, si je clique sur le nom du client X, cela m'amène vers l'onglet X.

Merci pour votre aide...si cela est possible.....
 
Re : Lister onglets sur une feuille avec classement et liens

bonjour,

voici qui devrait convenir.

La macro crée une feuille nommée "Liste" sur laquelle elle met les liens vers les autres feuilles puis les classe par ordre alphabétique ascendant.

si la feuille "Liste" existe déjà, elle la supprimer avant de la recréer

Code:
Sub ListerFeuilles()
    Dim shListe As Worksheet
    Dim sh As Worksheet
    Dim i As Long
 
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Liste").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    'Créer ou re-créer la feuille
    Set shListe = ThisWorkbook.Sheets.Add(before:=Sheets(1))
    shListe.Name = "Liste"
    shListe.Range("A1") = "Noms"
    i = 2
    For Each sh In Worksheets
        If sh.Name <> "Liste" Then
            With shListe
                .Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", _
                                SubAddress:="'" & sh.Name & "'!A1", TextToDisplay:=sh.Name
            End With
            i = i + 1
        End If
    Next sh
    shListe.UsedRange.Sort key1:=shListe.Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

A+

[Edit] Hello Hulk
 
Re : Lister onglets sur une feuille avec classement et liens

Merci.
C'est presque ça. Presque, car j'ai sur chaque feuille, un lien vers mon site, et dans le listing, il reprend ce lien dans le lien vers l'onglet...et donc, ça bugue.
 
Re : Lister onglets sur une feuille avec classement et liens

Slt

et un grain de sel en plus

@+

PS : Macro a activer komdab ...
( Alt + F8 pour les 2 macros de mise a jour MAJ_liste et l'interrupteur de "links" Blok_Deblok )
 

Pièces jointes

Dernière édition:
Re : Lister onglets sur une feuille avec classement et liens

Re,

D'accord, mais là vraiment je ne vois pas pourquoi. Et ne peut le savoir avec les éléments fournis.

Il nous faudrait un classeur exemple, anonymisé.

et des autres solutions proposées par nos amis, qu'en est-il?

A+
 
Re : Lister onglets sur une feuille avec classement et liens

RE,

Tu me rendrais service en fournissant un modèle anonymisé de ton classeur, pour que je puisse comprendre ce qui c'est passé avec les liens hypertexte.
Merci
A+
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
523
Retour