Effacer tous les noms de cellules en double

[MarieAude]

Bonjour,

j'ai copié un onglet et tous les noms de cellules de mon onglet d'origine ont donc été dupliqué dans ma copie.
Je souhaite supprimer tous les noms de cellules du nouvel onglet. J'ai utilisé la macro suivante :

Dim NomCellule as name

With ActiveSheet
For Each NomCellule In .Names
NomCellule.Delete
Next
End With

Le soucis est que les noms de cellules de l'activesheet (copie) etant les mêmes que ceux de l'onglet d'origine, la macro supprime aussi les noms de l'onglet d'origine.

Quelqu'un aurait-il une solution pour signaler à ma macro que je ne eux supprimer QUE les noms se référant à mon onglet même si il y a plusieusr fois le même nom. (J'ai des doutes, mais j'espère que j'ai été claire)

Merci

Marie-Aude

 

[Robert]

Re : Effacer tous les noms de cellules en double

Bonjour MarieAude, bonjour le forum,

Chez moi ta macro fonctionne parfaitement. J'ai pris un classeur vierge. Dans l'onglet Feuil1 j'ai créé trois noms, nom1, nom2, et nom3. J'ai ensuite copié l'onglet Feuil1 qui est devenu Feuil1 (2). J'avais bien trois noms dans chaque onglet. J'ai sélectionné l'onglet Feuil1 (2) et j'ai lancé ta macro... Les noms de l'onglet Feuil1 (2) ont été supprimés mais pas ceux de l'onglet Feuil1...

 

[Misange]

Re : Effacer tous les noms de cellules en double

Bonjour

Tu peux toujours utiliser le superbe gestionnaire de noms de Jan Karel
Name Manager
il te permet de faire ça très facilement (et c'est gratuit et ça fait bien d'autres choses...)