effacer tous les noms des ranges

titcoeur · 23 Mai 2005

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é · 23 Mai 2005

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 · 23 Mai 2005

Merci Hervé. quel service !

titcoeur · 23 Mai 2005

Merci Hervé. quel service !

effacer tous les noms des ranges

titcoeur

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

titcoeur

XLDnaute Occasionnel

titcoeur

XLDnaute Occasionnel

Discussions similaires