Comment rechercher et lister tous les liens (références externes) dans Excel ?
Dans Excel, vous faites référence au contenu de cellules situées dans un autre classeur en créant une référence externe. Toutefois, lorsqu’il s’agit de lister tous les liens d’un classeur Excel, repérer et répertorier l’ensemble des références externes (liens) peut sembler complexe. La méthode astucieuse présentée dans cet article vous permettra de détecter et de lister rapidement tous les liens contenus dans votre classeur.
Rechercher et lister tous les liens à l’aide de la commande Rechercher
Rechercher et lister tous les liens avec Kutools pour Excel
Rechercher et lister tous les liens avec une macro VBA
Rechercher et lister tous les liens à l’aide de la commande Rechercher
Étant donné que les liens externes contiennent le crochet [, nous pouvons les identifier en recherchant tous les crochets ouvrants dans l’ensemble du classeur.
1. Cliquez sur Accueil > Rechercher et sélectionner > Rechercher pour ouvrir la boîte de dialogue Rechercher et remplacer. Vous pouvez également ouvrir cette boîte de dialogue Rechercher et remplacer en appuyant sur les touches Ctrl + F.
2. Dans la zone Rechercher :, saisissez le crochet ouvrant «[».
3. Cliquez sur Options, puis, dans la liste déroulante Dans, choisissez Feuille ou Classeur selon l’étendue dans laquelle vous souhaitez rechercher les liens. Voir la capture d’écran :
4. Cliquez ensuite sur le bouton Rechercher tout. Toutes les références externes s’affichent alors immédiatement dans la boîte de dialogue Rechercher et remplacer. Appuyez sur Ctrl + A pour sélectionner toutes les cellules contenant des liens, comme illustré dans la capture suivante :
Le crochet ouvrant permet de détecter tous les liens externes dans l’ensemble du classeur. Si vous souhaitez identifier tous les types de liens, y compris les liens internes et externes, saisissez le point d’exclamation «!» dans la zone Rechercher :.
Rechercher et lister tous les liens avec Kutools pour Excel
Grâce à la fonctionnalité Kutools pour Excel « Trouver et rompre les liens », vous pouvez identifier tous les liens externes de la feuille active et, si nécessaire, supprimer les liens spécifiques.
Si vous avez installé Kutools pour Excel, procédez comme suit :
1. Activez la feuille dans laquelle vous souhaitez rechercher les liens, puis cliquez sur Kutools > Lien > Trouver et rompre les liens. Voir la capture d’écran :
2. Dans la boîte de dialogue Trouver et rompre les liens, cliquez sur la liste déroulante Filtrer et choisissez Tous les liens. Tous les liens de la feuille active sont alors listés, accompagnés de leur statut : OK indique que le lien est valide, tandis que Erreur signifie que le lien est rompu.
Remarques:
1. Si l’option Activer la cellule est cochée, un clic sur un lien dans la liste vous permet de localiser et d’accéder directement à la cellule correspondante dans la feuille.
2. Et si vous souhaitez rompre un lien, sélectionnez-le dans la liste, puis cliquez sur Rompre le lien.
Téléchargez dès maintenant Kutools pour Excel et profitez d’un essai gratuit !
Pour en savoir plus sur cette fonctionnalité, cliquez sur Trouver et rompre les liens.
Rechercher et lister tous les liens avec une macro VBA
La macro VBA suivante liste tous les classeurs sources liés dans une nouvelle feuille de calcul du classeur actuel.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre du module.
VBA : Lister tous les liens présents dans Excel.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. Appuyez sur la touche F5 pour exécuter cette macro. Une feuille nommée Link Sheet est alors créée automatiquement, listant à la fois l’emplacement de chaque lien ainsi que les noms et chemins d’enregistrement des classeurs source liés. Voir la capture d’écran :
Rechercher et lister tous les liens avec Kutools pour 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