créer liens hypertexte par macro

[Jiheme]

Bonjour le forum

J'ai de A4 à A103 le nom de mes feuilles (F1 à F100) et je voudrais créer dans chaque cellule A le liens qui ouvre l'onglet correspondant en position A1.

J'ai trouver des truc dans les archives mais toujours incapable de les adapter...

Merci

 

[pierrejean]

Re : créer liens hypertexte par macro

bonjour JM

A tester

Sub Macro1()
For n = 1 To Sheets.Count
  If Sheets(n).Name <> ActiveSheet.Name Then
   ActiveSheet.Range("A" & 2 + n).Hyperlinks.Add Anchor:=ActiveSheet.Range("A" & 2 + n), Address:="", SubAddress:=Sheets(n).Name & "!A1"
  End If
Next n
End Sub

 

[Jiheme]

Re : créer liens hypertexte par macro

Bonjour PierreJean, le Forum

Cela ne marche pas, je t'envois la feuille concernée de mon fichier en teprécisant que les feuilles à liées commencent à Feuill5 (dont le nom est F1)

Merci

 

[chris]

Re : créer liens hypertexte par macro

Bonjour

Un solution par formule
=LIEN_HYPERTEXTE("[classeur.XLS]"&A4&"!A1";A4)

ou sans avoir à nommer les feuilles dans la formule mise en A4 et recopiée vers le bas

=LIEN_HYPERTEXTE("[Classeur.XLS]F"&LIGNE()-3&"!A1";"F"&LIGNE()-3)

 

[pierrejean]

Re : créer liens hypertexte par macro

re

Salut Chris

@ JM

vois si cela te convient

macro -> hyperliens

 

[Jiheme]

Re : créer liens hypertexte par macro

Bonjour Pierre jean, Chris, le Forum

Merci à tous les deux, ça marche.

A bientôt