Discussion :

[EvaristeGaloisBis]

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 :

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

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.

[fring]

Bonjour,

Un truc de ce style ?

Code :

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

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 :

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

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