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)