Microsoft 365 Problème Création Sommaire

[Pierre77]

Bonjour à tous,

Dans un de mes fichiers Excel partagés, je voudrais créer un sommaire, afin de faciliter les déplacements dans les différents onglets (plus de 15 onglets présents).
J'ai réussi une première étape qui est de rapatrier les noms des onglets dans un tableau.

Ce que je voudrais, et où je sèche lamentablement, c’est :
1 - Lorsque je clique sur mon bouton, contenant le nom de l'onglet, qu'il m'y envoie
Je pensais faire une liaison ou une recherche valeur de mon titre de bouton dans mon tableau des onglets
2 - Si je change le nom de l'onglet, que le bouton m'y envoie quand même
Ici dans mon fichier exemple, si je remplace le nom de l'onglet "TAB 5" par "TOTO", que mon bouton "TAB 5" m'envoie quand même à "TOTO"
3 - Si je change l'emplacement de l'onglet, qu'il m'y envoie.

Je vous joins un fichier exemple, vide de donner mais avec mon commencement de sommaire.
ATTENTION, la fonction que j'ai utilisée pour remonter les noms automatiquement des onglets fonctionne en activant les macro Excel 4.0.

En vous remerciant par avance de votre aide.
Pierre

 

[Dudu2]

Bonjour,
J'ai retrouvé ce code qui peut servir comme base. Si tu as des demandes de modifs, please advise...

 

[crocrocro]

Bonjour le fil,
sans avoir vu le fichier de @Dudu2, une proposition de code à adapter.

Sub ListeOnglet()
Dim WS As Worksheet

    ActiveSheet.Cells(2, 1000).ClearContents
    i = 2
    For Each WS In ThisWorkbook.Worksheets
        With ActiveSheet
            If ActiveSheet.Name <> WS.Name Then
                .Cells(i, 1) = WS.Name
                Lien = "'" & WS.Name & "'" & "!A1"
                .Cells(i, 1).Select
                .Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
                Lien, TextToDisplay:=WS.Name
                i = i + 1
            End If
        End With
    Next WS
End Sub

Macro activée par le bouton Actualiser le sommaire.
Elle liste les onglets (autres que l'onglet courant) en colonne A avec un lien hypertexte qui affiche l'onglet correspondant

 

[sylvanu]

Bonjour Pierre, Dudu, Crocrocro,
On peut aussi le faire sans bouton, seulement en cliquent sur le nom de l'onglet dans le tableau, avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau10]) Is Nothing And Target <> "" Then
        Sheets(Cells(Target.Row, "C").Value).Select
    End If
End Sub

 

[sylvanu]

Re,
Ou encore plus simple en conservant les "boutons" avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
Sheets(Target(1).Value).Select
Fin:
End Sub