Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jb
Voici un essai pour lister les textes des hyper-liens d'une feuille active:
Sub essai() For Each i In ActiveSheet.Hyperlinks MsgBox i.TextToDisplay Next i End Sub
Cette séquence crée (dans la feuille active) une liste d'hyperliens vers les onglets du classeur:
Sub sommaire_hyper_lien() Sheets(1).Select Range("b4").Select For Each i In ActiveWorkbook.Sheets x = i.Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x ActiveCell.Offset(1, 0).Select Next i End Sub
Cordialement JB
Voici un essai pour lister les textes des hyper-liens d'une feuille
active:
Sub essai()
For Each i In ActiveSheet.Hyperlinks
MsgBox i.TextToDisplay
Next i
End Sub
Cette séquence crée (dans la feuille active) une liste d'hyperliens
vers les onglets du classeur:
Sub sommaire_hyper_lien()
Sheets(1).Select
Range("b4").Select
For Each i In ActiveWorkbook.Sheets
x = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Voici un essai pour lister les textes des hyper-liens d'une feuille active:
Sub essai() For Each i In ActiveSheet.Hyperlinks MsgBox i.TextToDisplay Next i End Sub
Cette séquence crée (dans la feuille active) une liste d'hyperliens vers les onglets du classeur:
Sub sommaire_hyper_lien() Sheets(1).Select Range("b4").Select For Each i In ActiveWorkbook.Sheets x = i.Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x ActiveCell.Offset(1, 0).Select Next i End Sub
Cordialement JB
docm
Bonjour.
Pour compléter la réponse précédente.
For Each i In ActiveSheet.Hyperlinks MsgBox i.TextToDisplay MsgBox i.SubAddress 'Liens internes MsgBox i.Address 'Liens externes Next i
docm
"Jean" a écrit dans le message news: 435280e3$0$27449$
Bonjour,
J'ai une première feuille avec une liste de lien vers les autres feuilles.
Je voudrais pouvoir lire l'intitulé du lien et savoir vers quelque page le lien doit se faire, pour en faire une liste par exemple.
Merci
Jean
Bonjour.
Pour compléter la réponse précédente.
For Each i In ActiveSheet.Hyperlinks
MsgBox i.TextToDisplay
MsgBox i.SubAddress 'Liens internes
MsgBox i.Address 'Liens externes
Next i
docm
"Jean" <jj@free.fr> a écrit dans le message news:
435280e3$0$27449$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai une première feuille avec une liste de lien vers les autres feuilles.
Je voudrais pouvoir lire l'intitulé du lien et savoir vers quelque page le
lien doit se faire, pour en faire une liste par exemple.