tester l'existence d'un nom dans une feuille

Bonjour,

Une piste avec

'***************
Sub Nom_PMO()
Dim N As Name
For Each N In ActiveWorkbook.Names
If UCase(N.Name) = "TOTO" Then
MsgBox "Le nom " & N.Name & vbCrLf & _
"se réfère à " & N.RefersToLocal
End If
Next N
End Sub
'***************

Cordialement.
--
PMO
Patrick Morange

Salut !
J'aimerais pouvoir tester l'existence d'un nom de cellule..
j'ai essayer avec
If Range("A1:Z50").Find("toto")=nothing then...
mais ça reconnaît le texte dans la cellule et non pas le nom de la cellulle..

Bonjour
Sub Test()
MsgBox LeNomExiste("zozo")
End Sub

Function LeNomExiste(Nom As String) As Boolean
Dim Test
On Error Resume Next
Test = ThisWorkbook.Names(Nom).RefersToRange
LeNomExiste = Err = 0
Err.Clear
End Function

Cordialement
Pascal

"Le nain des bois" <Le nain des bois@discussions.microsoft.com> a écrit dans
le message de news: 5CBABEAD-BE8A-4442-AF1F-ED283CF99E3C@microsoft.com...

Salut !
J'aimerais pouvoir tester l'existence d'un nom de cellule..
j'ai essayer avec
If Range("A1:Z50").Find("toto")=nothing then...
mais ça reconnaît le texte dans la cellule et non pas le nom de la
cellulle..