Suppression des liens externes fantômes dans Excel

Pour toute autre personne ayant passé des heures à passer son dossier au peigne fin, le problème peut également se poser si vous avez copié une plage de validation de données d'un autre classeur.

Pour le résoudre :

Ruban–>Fichier–>Vérifier les problèmes–>Vérifier la compatibilité

Cela fera apparaître le vérificateur qui vous indiquera si la validation pointe vers une feuille externe.

Plus important encore, il vous indiquera sur quelle feuille elle se trouve.

Quoi qu'il en soit, une fois que vous connaissez la ou les feuilles, allez à la feuille. Maintenant

Ruban–>Home–>Flèche vers le bas à côté de Trouver et sélectionner–>Validation des données.

Cela permettra de sélectionner les cellules pour lesquelles la validation des données a été appliquée.

Maintenant

Ruban–>Données–>Validation des données

et corriger la référence brisée dans le champ “Source”, ou cliquer sur “Effacer tout” si vous n'en avez pas besoin.

En fin de compte, j'ai suivi la piste des règles de formatage conditionnel.

Cliquer sur “Accueil - Formatage conditionnel - Gérer les règles” fait apparaître le dialogue suivant, qui est relativement facile à consulter et à remplacer les références externes.

Si le classeur est grand, il n'est pas facile de trouver la condition de format avec une référence externe. J'écris cette fonction VBA pour le trouver. Limitée à 80 colonnes et 500 lignes pour réduire le temps d'exécution. Lorsque la fonction s'arrête, vous pouvez vérifier la position en demandant :

?foglio.name
 ?cella.row
 ?cella.column

    Public Function CercaLink()
    Dim Cella As Object, i&, Foglio As Object
    For Each Foglio In ActiveWorkbook.Sheets
       ActiveWorkbook.Sheets(Foglio.Name).Select
       For Each Cella In ActiveSheet.Cells
         If Cella.Column < 80 Then
           If Cella.FormatConditions.Count > 0 Then
              For i = 1 To Cella.FormatConditions.Count
                 If InStr(1, Cella.FormatConditions(i).Formula1, ":\") > 0 Then Stop
              Next
           End If
        End If
        If Cella.Row > 500 Then Exit For
     Next
  Next
  End Function
```.