[E-03] detection de l'existence d'un range par son nom

Bonjour
j'ai du construire une petite macro qui lit les noms dans un fichier excel.
Le probleme est le suivant : il me rapporte bien tous les noms existants. Seulement dans ceux là, il existe des noms qui n'existe plus (et dont excel marque l'erreur Ref par le gestionnaire de nom).
Or dans un passage de mon code j'utilise un :

Code:

---

range(StleNomDansLaFeuille)

---

Mais dans ce cas quand le nom a une erreur de réference il me met un global failed.
J'ai pensé utiliser un IsError() en vain, et faire un test avec cverr(xlerrref), mais rien n'y fait.

Je ne vois pas comment faire.

Bonjour,

Un truc de ce style ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim N As Name, Nom As String   Nom = "LeNom"   For Each N In ThisWorkbook.Names If N.Name = Nom And Right(N, 5) <> "#REF!" Then MsgBox Range(Nom).Name End If Next End Sub

---

[EDIT]
Pour nettoyer les noms qui ne servent plus, tu peux exécuter cette procédure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test_nom() Dim N As Name   For Each N In ThisWorkbook.Names If Right(N, 5) = "#REF!" Then If MsgBox("le nom " & N.Name & " n'est plus attribué." & vbLf _ & "Voulez-vous le supprimer ?", vbQuestion + vbYesNo, "Vérification des noms de cellules") = vbYes Then N.Delete End If End If Next End Sub

---