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 :
ça fonctionne correctement, mais si j'utilise :
ça ne fonctionne pas.
Merci d'avance pour vos réponses.
A+
Martial
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 :
VB:
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 :
VB:
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