Lien hypertexte

[Hugues]

Bonjour Le Forum

Je souhaiterais mettre en place des liens hypertexte dans un classeur.
Dans une feuille :
dans la première colonne, j'ai le nom des onglets (colonne masquée)
dans la deuxieme colonne, j'ai un titre qui correspond au contenu de l'onglet (mentionnée dans la colonne précédente mais masquée).

Je souhaiterais donc faire un lien hypertexte avec le titre qui prendrait comme référence le nom de l'onglet mentionnée dans la colonne précédente mais masquée.

Est ce possible ?

Vous remerciant par avance,

 

[Hugues]

Re : Lien hypertexte

Re bonjour,

J'ai commencé mais cela ne fonctionne pas.
Ci joint le code :

Sub macro_lien()

For i = 1 To 10
Range("E" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Range("F" & i).Value & "!A1", TextToDisplay:=Range("E" & i).Value

Next i

End Sub

 

[JNP]

Re : Lien hypertexte

Bonjour Hugues 🙂,
C'était presque bon. Ça fonctionne avec des onglets sans espace, mais pour les onglets avec espaces, il faut utiliser des cotes (') 🙄

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
[COLOR=red][B]"'[COLOR=red]"[/COLOR][/B][/COLOR][COLOR=red][B] &[/B] [/COLOR]Range("F" & I).Value & "[COLOR=red][B]'[/B][/COLOR]!A1", TextToDisplay:=Range("E" & I).Value

Bon courage 😎
Ajout : Salut TotoTiti, même motif, même punition 😛

 

[tototiti2008]

Re : Lien hypertexte

Bonjour Hugues,

Et comme ça ?

Sub macro_lien()
 
For i = 1 To 10
Range("E" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Range("F" & i).Value & "'!A1", TextToDisplay:=Range("E" & i).Value
 
Next i
 
End Sub

Edit : Bonjour JNP, même idée 😉

 

[job75]

Re : Lien hypertexte

Bonjour Hugues, Jean-Noël, Tototiti,

De mémoire, il me semble que TextToDisplay nécessite qu'on utilise la propriété Text

=> TextToDisplay:=Range("E" & i).Text

Edit : mais non ! ma mémoire a de ces inventions 😱 mais il faut bien sûr que Range("E" & i) soit un texte.

A+