copier les liens hypertexte

jclm · 9 Décembre 2011

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 · 9 Décembre 2011

Re : copier les liens hypertexte

Bonjour Jclm, Pierre-Jean

Bravo Pierre-Jean, je le garde .

pierrejean · 9 Décembre 2011

Re : copier les liens hypertexte

Bonjour jclm

teste cette macro:

Code:

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 · 9 Décembre 2011

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 · 9 Décembre 2011

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

copier les liens hypertexte

jclm

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

jclm

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Discussions similaires