Comment lister rapidement toutes les hyperliens dans Excel ?

Lorsque nous utilisons une feuille de calcul, il est possible que nous créions de nombreux hyperliens dedans, et parfois nous avons besoin de savoir où mènent ces textes. Si vous cliquez dessus un par un, cela sera fastidieux et chronophage. Si nous pouvons lister tous les hyperliens avec leurs textes et adresses dans une feuille de calcul, il sera facile pour nous de vérifier tous les hyperliens dans Excel.

Lister tous les hyperliens sélectionnés avec le code VBA

Extraire toutes les adresses réelles des hyperliens avec Kutools pour Excel

Lister tous les hyperliens sélectionnés avec le code VBA

1. Sélectionnez la plage qui contient les hyperliens que vous souhaitez lister.

2. Cliquez sur Développeur > Visual Basic, une nouvelle fenêtre Microsoft Visual Basic pour applications s'affichera, cliquez sur Insérer > Module, et 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 Sub

3. Puis cliquez sur le bouton pour exécuter le code. Et tous les hyperliens seront affichés dans une nouvelle feuille de calcul appelée Hyperlink List. Voir capture d'écran :

Extraire toutes les adresses réelles des hyperliens avec Kutools pour Excel

Avec la fonction Convertir les hyperliens de Kutools pour Excel, vous pouvez extraire rapidement les adresses réelles des hyperliens.

1. Sélectionnez les hyperliens dont vous souhaitez extraire les destinations réelles.

2. Ensuite, cliquez sur Kutools > Lien > Convertir les hyperliens, voir capture d'écran :

3. Dans la boîte de dialogue Convertir les hyperliens, sélectionnez l'option Convertir ladresse dhyperlien en contenu de cellule depuis la section Type de conversion, puis spécifiez une cellule où vous souhaitez placer le résultat sous la section Plage de résultats, voir capture d'écran :

4. Cliquez ensuite sur le bouton OK, toutes les adresses réelles ont été extraites des hyperliens, voir capture d'écran :

Remarque : Convertir la plage source : les résultats extraits seront placés sur la plage de cellules d'origine si vous cochez cette option.

Article connexe :

Comment supprimer rapidement tous les hyperliens dans Excel ?