Supprimer/Modifier Nom dans le gestionnaire de noms

[YaGo]

Bonjour à tous,

Je cherche désespérément à supprimer certains nom dans le gestionnaire mais le code suivant le marche pas...

While Classeur.Names.Count > 0
        If Not Classeur.Names Like "Nom1" And "Nom2" And "Nom3" Then Classeur.Names(1).Delete
Wend

PS: hier j'ai trouvé un post qui en parlé bien sur le forum mais j'ai perdu le lien...

Bonne journée,

YaGo

 

[david84]

Re : Supprimer/Modifier Nom dans le gestionnaire de noms

Bonjour,
à tester:

Sub test()
Dim N As Names, c As Name
Set N = ThisWorkbook.Names
For Each c In N
  If c.Name = "test2" Then c.Delete
Next c
End Sub

A+

 

[Lolote83]

Re : Supprimer/Modifier Nom dans le gestionnaire de noms

Salut,
Peut être est-ce lien que tu as trouvé hier, sinon regarde et cela peut intéresser.
https://www.excel-downloads.com/threads/gestionnaire-de-noms.213435/
@+ Lolote83

 

[YaGo]

Re : Supprimer/Modifier Nom dans le gestionnaire de noms

Bonjour David84 et Lolotte83,

Merci pour vos conseilles, cela marche comme sur des roulettes!

Par contre je voudrais effectuer maintenant quelques modifications dans les formules de mon gestionnaire de noms.
Suite à la suppression de certains noms, je copie toutes les feuilles associées au noms dans un autre classeur mais la référence ne s'adapte pas toujours au nouveau classeur.
Comment fait-on pour modifier le lien dans la formule?

Par exemple je voudrais passer de ca:

=RECHERCHEV(FIN.MOIS('C:\Program Files (x86)\[FICHIER EXCEL.xls]FEUILLE1'!$BG3;0);Table_Exchange_Rate;EQUIV('C:\Program Files (x86)\[FICHIER EXCEL.xls]FEUILLE1'!$AZ3;Head_Exchange_Rate;0);FAUX)

vers ca:

=RECHERCHEV(FIN.MOIS('FEUILLE NOUVEAU CLASSEUR'!$BG3;0);Table_Exchange_Rate;EQUIV('FEUILLE NOUVEAU CLASSEUR'!$AZ3;Head_Exchange_Rate;0);FAUX)