suppression nom sans reference

[grosminet]

Bonjour a tous,

J'ai un classeur excel avec plus d'une centaine de nom de cellules dont la plupart ont de mauvaises references. On peut les supprimes en faisant, insertion, nom, definier et les supprimés une par une.
Y a t'il un moyens de toutes les supprimes en meme temps ??

exemple de cellule : la cellule A1 a pour nom nom TOTO et quand on va dans insertion nom definir, on a =#REF$A1.

 

[pat1545.]

Salut lechat

Sub SupprimeNomsAvecJoker()
For Each Nm In ActiveWorkbook.Names
Nm.Delete
Next
End Sub


Voilà

 

[Hervé]

Bonsoir grominet, pat

un autre code qui ne devrait supprimer que les noms comportant une erreur.

Sub Bouton1_QuandClic()
Dim nom As Name
Dim c As Range

Set c = Cells.Find(Empty)

For Each nom In ActiveWorkbook.Names
        c = nom.RefersToLocal
        If IsError(c) Then nom.Delete
Next nom

c.ClearContents
End Sub

salut