editer la liste des noms d'un fichier

[papyjo]

Bonjour à tous

lorsque je duplique une feuille, Excel m'informe qu'une formule ou une feuille ..... contient déjà le nom .... qui existe déja sur la feuille de destination..
En passant par insertion, nom, définir, je ne vois aucun des noms de champs incriminés.
Ces noms de champs sont de vieilles réminiscences de ce fichier qui a évolué au cours des années et des versions d'Excel.

Je voudrais donc supprimer ces noms de champs, de manière simple et accessible à mes compétences limitèes.

Je vous remercie par avance de votre attention.
Papyjo

 

[pierrejean]

bonjour papyjo

a essayer

dans un module
mettre la macro suivante:

Sub noms()
For n = 1 To ActiveWorkbook.Names.Count
MsgBox (ActiveWorkbook.Names(n))
Next
End Sub

et l'executer

normalement les localisations des noms doivent s'afficher successivement

en cas de probleme ne pas hesiter à revenir

 

[papyjo]

Re Bonjour

En utilisant une macro de Th Pourlier qui liste les plages nommées... Le fichier fabriqué recense une liste impressionnante de formules nommées.
Ce sont ces objets que je souhaiterais détruire.

Suis-je plus clair ainsi

Merci d'avance
papyjo

 

[papyjo]

Merci
Je vois beaucoup mieux le problème...
En effet, je vois bien le contenu de l'étiquette..
Mais je n'ai pas la localisation pour supprimer.
Comment faire?
Papyjo

 

[pierrejean]

rebonjour papyjo

je ne connais la macro à laquelle tu fais reference

la mienne par contre devrais te donner la localisation sous forme :

Feuil1!$A$1

ce n'est pa ça ??

 

[MichelXld]

bonjour Papyjo , bonjour Pierre-Jean


j'espere que cette macro pourra t'aider

Dim N As Name
Dim PlageNom As Range
Dim i As Integer
Dim x As Integer

x = 1
On Error Resume Next

For i = 1 To Sheets.Count

For Each N In Worksheets(i).Parent.Names
Set PlageNom = Nothing
Set PlageNom = N.RefersToRange
If Not PlageNom Is Nothing Then
If Worksheets(i).Index = PlageNom.Worksheet.Index Then
Cells(x, 1) = N.Name
Cells(x, 2) = N.RefersToRange.Value
Worksheets(1).Hyperlinks.Add Anchor:=Cells(x, 3), Address:='', SubAddress:=N.RefersToRange.Address(external:=True)
x = x + 1
End If
End If
Next N

Next i



bon apres midi
MichelXld

 

[MichelXld]

rebonjour

et pour supprimer les noms

Lien supprimé



bon apres midi
MichelXld

 

[papyjo]

Suite et joyeuse fin
Helas non, Piere-Jean la localisation de l'étiquette ne suit pas. C'est là je pense mon problème. Il y a une ficelle qui a du voler.
Mais....
J'ai pris le lien de MichelXld et les lignes de codes :
Sub erase_noms()
Set nms = ActiveWorkbook.Names
While nms.Count > 0
MsgBox nms.Count & ' ' & nms(1).Name
nms(1).Delete
Wend
End Sub
Et là ça marche, avec une confirmation à chaque etiquette 'orpheline'... 231 ok et c'est réglé, style rouleau compresseur.
Il me reste à rétablir les quelques noms que je voulais conserver (champs d'impression..).Et mon fichier est propre et débarrassé de ses parasites.
Merci encore, infiniment.
Et bonne continuation
Papyjo

 

[pierrejean]

@ papyjo

bien obligé de repondre

il n'y a pas de quoi !!!

@ MichelXD

je m'incline bien bas et je note

Pierre