Suppression de certians nom définit

[Yaloo]

Bonjour à tous,

Dans un classeur, j'ai beaucoup de Nom définis, je souhaiterai tous les supprimer sauf certains (en tout 5).

Si je n'en mets qu'un :

Sub supprime()
Dim N As Name
  For Each N In ActiveWorkbook.Names
    If N.Name <> Names("NOM_1").Name Then 
      N.Delete
    End If
  Next
End Sub

ça fonctionne correctement, mais si j'utilise :

Sub supprime()
Dim N As Name
  For Each N In ActiveWorkbook.Names
    If N.Name <> Names("NOM_1").Name Or N.Name <> Names("NOM_2").Name Then
      N.Delete
    End If
  Next
End Sub

ça ne fonctionne pas.

Merci d'avance pour vos réponses.

A+

Martial

 

[Guest]

Re : Suppression de certians nom définit

Bonjour,

Cela ira mieux avec AND

If N.Name <> "NOM_1" AND N.Name <> "NOM_2" Then

A+

 

[Dranreb]

Re : Suppression de certians nom définit

Deux choses ne vont pas:
1 - Names("NOM_1").Name c'est "NOM_1" tout simplement
2 - Votre condition est toujours vraie, réfléchissez. Il faut And pas Or

 

[Yaloo]

Re : Suppression de certians nom définit

Bonjour Hasco, Dranreb,

Oui, évidemment

A+