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

Claudy

XLDnaute Accro
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
 
Solution
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

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

Discussions similaires

Statistiques des forums

Discussions
312 361
Messages
2 087 630
Membres
103 613
dernier inscrit
luluinmauritius