Discussion :

[deadly_muffin]

Bonjour à tous !

Voici la situation, et mon problème par la même occasion : Dans un fichier excel conséquent, un grand nombre de cellules ont été nommées (pour y faire référence facilement).

Parmis ces noms de cellules, deux catégories :
1/ les noms faisant référence à des cellules du fichier en question
2/ les noms faisant référence à des cellules d'autres fichiers (liens externes)

Je souhaiterai supprimer tous les noms de la seconde catégorie (il y en a une petite centaine, et je ne sais pas du tout comment ils sont arrivé là honnetement...)

Une macro qui supprime tous les noms sans distinction (ça c'est bon je sais faire) ferait disparaitre les noms de catégorie 1/, et ça pour le coup je ne le souhaite pas... Des idées ?

Bonne journée à tous

[78chris]

Bonjour

En recherchant la chaîne ".xl" dans le refersTo

[deadly_muffin]

Merci 78Chris, c'était effectivement la référence refersto qui me manquait !

Je colle le code en cas de recherche par quelqu'un d'autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub Suppr_Nom_ref_ext()
        Dim ref As String
        For Each Name In ActiveWorkbook.Names
        ref = Name.RefersTo
            If IsError(Application.Find(".xl", ref, 1)) = False _
            Then
               Name.Delete
            End If
        Next
End Sub

Bonne journée

[78chris]

Re

Tu peux simplifier avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if InStr(Name.RefersTo, ".xl")<>0 then Name.Delete

J'éviterais name comme nom de variable puisque c'est un mot clé VBA