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

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

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

Discussions similaires

Retour