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 Sub3. 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.
Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
Article connexe :
Comment supprimer rapidement tous les hyperliens dans Excel ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels