effacer tous les noms des ranges

[titcoeur]

Bonjour à tous,

J'aimerais effacer en une seule fois tous les noms attribués à des ranges différents dans mon fichier.


Je sais le faire un à un mais il y en a tellement que ça me semble fastidieux. Il me semble qu'il devrait y avoir un moyen de faire tout en bloc.


Merci d'avance

 

[Hervé]

Bonjour



ce type de code à placer dans un module standard, devrait effacer tous les noms du classeur :

Sub supprimenom()
Dim nom As Name
For Each nom In ActiveWorkbook.Names
    nom.Delete
Next nom
End Sub

Salut

 

[titcoeur]

Merci Hervé. quel service !

 

[titcoeur]

Merci Hervé. quel service !