XL 2016 Transformer une colonne en lien vers d'autres feuilles

Claudy · 23 Février 2021

Bonjour,
j'ai une colonne(B2:B61) qui reprend les noms des feuilles reprises dans le même classeur.
Comment transformer ces noms en lien qui me renvoie directement en cliquant dessus vers la feuille sélectionnée?
Pour info, le classeur va de janvier 2017 à décembre 2021....au format "mmmmaa"(janvier17)
Merci d'avance,
Claudy

Staple1600 · 23 Février 2021

Re

Donc un exemple par macro
(Ou on n'a pas forcément besoin d'une liste en B2:B61)
On imagine qu'il existe une feuille nommée MENU

VB:

Sub Faire_Feuille_Sommaire()
Dim ws As Worksheet, j&
j = 1
With Sheets("MENU")
.[B1] = "NOM FEUILLES"
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "MENU" Then
        j = j + 1
        ws.Hyperlinks.Add .Cells(j, 2), "", "'" & ws.Name & "'!A1", , ws.Name
    End If
Next
End With
End Sub

Avec cette macro, il y aura en colonne B, des liens hypertexte vers les autres feuilles du classeur.
(test OK sur mon PC - Excel 2013)

Staple1600 · 23 Février 2021

Bonsoir le fil, Claudy

=>Claudy
Tu acceptes une solution avec macro?

Staple1600 · 23 Février 2021

Re

Donc un exemple par macro
(Ou on n'a pas forcément besoin d'une liste en B2:B61)
On imagine qu'il existe une feuille nommée MENU

VB:

Sub Faire_Feuille_Sommaire()
Dim ws As Worksheet, j&
j = 1
With Sheets("MENU")
.[B1] = "NOM FEUILLES"
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "MENU" Then
        j = j + 1
        ws.Hyperlinks.Add .Cells(j, 2), "", "'" & ws.Name & "'!A1", , ws.Name
    End If
Next
End With
End Sub

Avec cette macro, il y aura en colonne B, des liens hypertexte vers les autres feuilles du classeur.
(test OK sur mon PC - Excel 2013)

XL 2016 Transformer une colonne en lien vers d'autres feuilles

Claudy

XLDnaute Accro

Staple1600

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires