copier les liens hypertexte

[jclm]

😎 Bonjour à tous

encore une petite question

J'ai un classeur Xls qui comprend 300 onglets.
je veux créer une feuille Index qui reprend le nom de tous mes onglets et de là via un lien hypertexte je pourrais arriver directement sur l'onglet demandé.
Mais pour cela je dois créer 300 liens !😡
existe t'il une possibilité pour copier les liens !! Cela me ferais gagner beaucoup de temps.

Merci d'avance pour vos réponses

Bon week end😎

 

[MJ13]

Re : copier les liens hypertexte

Bonjour Jclm, Pierre-Jean

Bravo Pierre-Jean, je le garde 🙂.

 

[pierrejean]

Re : copier les liens hypertexte

Bonjour jclm

teste cette macro:

Sub Macro1()
num = 1
For Each sh In Sheets
If sh.Name <> ActiveSheet.Name Then
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("A" & num), Address:="", SubAddress:= _
        sh.Name & "!A1", TextToDisplay:=sh.Name
    num = num + 1
End If
Next
End Sub

Edit : Salut Michel

 

[jclm]

Re : copier les liens hypertexte

Un tout grand merci

1 bonne heure de travail effectuée en 5 secondes !!!!!

Je savais qu'il y avait des craques en Xls

Bon week end

 

[pierrejean]

Re : copier les liens hypertexte

Re

Oui il y a certainement des craques !!!
Et bon nombre de cracks qui m'ont appris à peu près tout ce que je sais