Lien hypertexte

Hugues · 1 Octobre 2010

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 · 1 Octobre 2010

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 · 1 Octobre 2010

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 (') 🙄

Code:

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 · 1 Octobre 2010

Re : Lien hypertexte

Bonjour Hugues,

Et comme ça ?

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

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

job75 · 1 Octobre 2010

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+

Lien hypertexte

Hugues

XLDnaute Impliqué

Hugues

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Lien hypertexte

Hugues

XLDnaute Impliqué

Hugues

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency