Comment lister rapidement tous les liens hypertexte dans Excel ?
Lorsque nous utilisons une feuille de calcul, il est possible que nous y créions de nombreux liens hypertexte, et parfois nous devons savoir vers où pointent ces textes. Si vous les cliquez un par un, cela deviendra fastidieux et chronophage. Si nous pouvions lister tous les liens hypertexte avec leurs textes et Adresse du lien hypertexte dans une feuille de calcul, il nous serait facile de vérifier l’ensemble des liens hypertexte dans Excel.
Lister tous les liens hypertexte sélectionnés à l’aide d’un code VBA
Extraire toutes les adresses réelles à partir des liens hypertexte avec Kutools pour Excel
Lister tous les liens hypertexte sélectionnés à l’aide d’un code VBA
1. Sélectionnez la plage contenant les liens hypertexte que vous souhaitez répertorier.
2. Cliquez sur Développeur > Visual Basic. Une nouvelle fenêtre Microsoft Visual Basic pour Applications s’affichera. Cliquez sur Insertion > Module, puis saisissez le code suivant dans le module :
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub3. Cliquez ensuite sur le bouton 
pour exécuter le code. Tous les liens hypertexte s’afficheront dans une nouvelle feuille de calcul intitulée Liste des liens hypertexte. Voir la capture d’écran :
Extraire toutes les adresses réelles à partir des liens hypertexte avec Kutools pour Excel
Grâce à la fonctionnalité Kutools pour Excel’s Convertir les hyperliens de Kutools pour Excel, vous pouvez extraire rapidement les adresses réelles à partir des liens hypertexte.
1. Sélectionnez les liens hypertexte dont vous souhaitez extraire les URL de destination réelles.
2. Cliquez ensuite sur Kutools > Lien > Convertir les hyperliens, voir la capture d’écran :
3. Dans la boîte de dialogue Convertir les hyperliens, sélectionnez l’option Convertir l‹adresse d›hyperlien en contenu de cellule dans la section Type de conversion, puis indiquez une cellule où vous souhaitez placer le résultat dans la section Plage de résultats. Voir la capture d’écran :
4. Cliquez ensuite sur le bouton OK. Toutes les adresses réelles ont été extraites des liens hypertexte. Voir la capture d’écran :
Remarque : Convertir la plage source : les résultats extraits seront placés dans la plage de cellules d’origine si vous cochez cette option.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Article associé :
Comment supprimer rapidement tous les liens hypertexte dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels