Comment trouver et lister tous les liens (références externes) dans Excel ?

Dans Excel, vous référencez le contenu des cellules d'un autre classeur en créant une référence externe. Mais lorsque vous souhaitez lister tous les liens d'un classeur dans Excel, il semble difficile de trouver et de lister toutes les références externes (liens). La méthode astucieuse décrite dans cet article vous aidera à découvrir et à lister rapidement tous les liens du classeur.

Trouver et lister tous les liens avec la commande Rechercher

Trouver et lister tous les liens avec Kutools pour Excel

Trouver et lister tous les liens avec une macro VB

Trouver et lister tous les liens avec la commande Rechercher

Comme les liens externes contiennent le signe de crochet [ , nous pouvons identifier les liens externes si nous trouvons tous les signes de crochets 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 la boîte de dialogue Rechercher et remplacer en appuyant sur Ctrl + F.

2. Dans la zone Rechercher :, entrez la partie gauche du signe de crochet "[".

3. Cliquez sur Options, dans la liste déroulante Dans , choisissez Feuille ou Classeur à partir duquel vous souhaitez trouver les liens. Voir capture d'écran :

4. Puis cliquez sur le bouton Rechercher tout. Ensuite, il liste toutes les références externes dans la boîte de dialogue Rechercher et remplacer immédiatement. Appuyez sur Ctrl + A pour sélectionner toutes les cellules contenant des liens comme le montre la capture d'écran suivante :

La partie gauche du signe de crochet peut identifier les liens externes dans l'ensemble du classeur. Si vous souhaitez identifier tous les types de liens, y compris les liens internes et externes, vous pouvez entrer le signe d'exclamation "!" dans la zone Rechercher.

Trouver et lister tous les liens avec Kutools pour Excel

Avec Trouver et rompre les liens brisés de Kutools pour Excel, vous pouvez trouver tous les liens externes de la feuille de calcul active, et en même temps, vous pouvez rompre les liens spécifiques selon vos besoins.

Si vous avez installé Kutools pour Excel, veuillez procéder comme suit :

1. Activez la feuille de calcul dans laquelle vous souhaitez trouver les liens, puis cliquez sur Kutools > Lien > Trouver et rompre les liens brisés, voir capture d'écran :

2. Dans la boîte de dialogue Trouver et rompre les liens brisés, cliquez sur la liste déroulante Filtrer pour choisir Tous les liens, et tous les liens de la feuille de calcul active sont listés, vous pouvez également voir l'état des liens, OK signifie que le lien est valide, Erreur signifie que le lien est brisé.

Remarques :

1. Si l'option Activer la cellule est cochée, lorsque vous cliquez sur un lien dans la liste, cela recherchera et naviguera vers la cellule spécifique qui contient le lien dans la feuille de calcul.

2. Et si vous souhaitez rompre un lien, vous pouvez sélectionner le lien dans la liste, puis cliquer sur Rompre le lien.

Cliquez pour télécharger Kutools pour Excel et essayer gratuitement maintenant !

Si vous souhaitez en savoir plus sur cette fonctionnalité, veuillez cliquer sur Trouver et rompre les liens brisés.

Trouver et lister tous les liens avec une macro VB

La macro VBA suivante peut nous aider à lister tous les classeurs sources liés dans une nouvelle feuille de calcul du classeur actuel.

1. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, et collez la macro suivante dans la fenêtre Module.

VBA : Liste de tous les liens 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. Ensuite, elle crée une nouvelle feuille de calcul nommée Feuille de liens et liste immédiatement tous les emplacements des liens ainsi que les noms et chemins de sauvegarde des classeurs sources liés. Voir capture d'écran :

Trouver et lister tous les liens avec Kutools pour Excel