XL 2013 Gestionnaire de noms ne s'ouvre pas

[midovic]

Bonjour,
Mon problème est le suivant : Sur un classeur de travail, je n'arrive pas à ouvrir le gestionnaire de noms.
Alors quand j'ouvre un nouveau classeur vide le menu gestionnaire de noms s'ouvre normalement.
Pouvez-vous m'aider svp à ouvrir ce menu dans mon classeur de travail?
Je vous remercie par avance de votre aide.

 

[midovic]

Bonjour midovic, Franc58, Cousinhub, job75, ChTi160, le forum

Un suggestion en passant

Sub compter_noms()
MsgBox ThisWorkbook.Names.Count
End Sub

Si le nombre qui s'affiche dans le MsgBox est très élevé, peut-être est-ce qui perturbe le gestionnaire de noms

(cf voir ce qui se dit ici, qui reste à confirmer/infirmer)

Bonjour Staple 1600
effectivemment le nombre est très élevé! 114236
je ne comprend pas pourquoi il y en a autant!... 🙄

 

[job75]

Bonjour midovic,

je ne comprend pas pourquoi il y en a autant!... 🙄

Mais j'espère que vous comprenez ce qu'il vous reste à faire, par exemple :

Sub Epure()
Dim nom As Name
For Each nom In ThisWorkbook.Names
    nom.Delete
Next
End Sub

A+

 

[job75]

Pour reproduire le phénomène j'ai exécuté cette macro :

Sub Noms()
Dim t, i&
t = Timer
For i = 1 To 70000
ThisWorkbook.Names.Add "_" & i, i
Next
MsgBox Timer - t
End Sub

Elle s'exécute en 8 minutes chez moi et effectivement le Gestionnaire de noms ne fonctionne plus.

 

[job75]

Ah oui mais après avoir créé 70 000 noms on ne peut plus les supprimer avec la macro Epure.

Il y a le message "Mémoire insuffisante".

 

[TooFatBoy]

Bonjour,

Ah oui mais après avoir créé 70 000 noms on ne peut plus les supprimer avec la macro Epure.

Il y a le message "Mémoire insuffisante".

Dans ce cas essayer quelque chose dans ce genre :

For i=1 to ThisWorkbook.Names.Count
    ThisWorkbook.Names(1).Delete
Next i

 

[job75]

Bonjour le forum,

La solution de TooFatBoy fonctionne très bien.

Chez moi il faut 6 minutes pour supprimer 70 000 noms :

Sub Epure1()
Dim t, i&
t = Timer
For i = 1 To ThisWorkbook.Names.Count
    ThisWorkbook.Names(1).Delete
Next i
MsgBox Timer - t
End Sub

A+

 

[patricktoulon]

re
Bonjour à tous
je pense qu'il faudrait se demander d'où viennent ces 114236 names
une gestion de names avec un tel nombre c'est de science fiction 🤣

 

[TooFatBoy]

je pense qu'il faudrait se demander d'où viennent ces 114236 names

Hi Jean-Claude, I suppose you're talking about 114236 noms. 😅

L'auteur de la question s'est visiblement déjà posé la question puisqu'il a dit :

je ne comprend pas pourquoi il y en a autant!... 🙄

En revanche, il serait intéressant de trouver la réponse.

Un simple "copier/coller" ne duplique pas les noms, donc peut-être y a-t-il une macro qui crée des noms, ou peut-être des duplications de feuilles contenant des noms ?

 

[patricktoulon]

re
bonjour @TooFatBoy et donc peut être corriger ce problème avant de tout supprimer
cela dit cent-quatoze mille deux-cent-trente-six names
il y a du avoir beaucoup de copier/coller
je me dit qu'il va falloir peut être remonter un peu plus loin et voir si ce n'est pas plutôt une erreur de conception de l'auteur du fichier

 

[TooFatBoy]

peut être corriger ce problème avant de tout supprimer

Perso, avant de supprimer, j'essaierai de créer une liste des noms et de leurs références, histoire de voir si ça aiguille vers la source du problème.

 

[midovic]

Bonjour TooFatBoy, PatrickToulon, Job75, le forum,

Je confirme, la solution de TooFatBoy fonctionne très bien! 🙂
Maintenant, j'arrive à accéder au gestionnaire des noms. J'ai utilisé cette macro :
VB:

Sub Epure1()
Dim t As Double
Dim i As Long
t = Timer
For i = ThisWorkbook.Names.Count To 1 Step -1
ThisWorkbook.Names(i).Delete
Next i
MsgBox Timer - t
End Sub

Par contre, tellement il en y avait de noms, elle a mis trop longtemps pour s'exécuter.

Si non après réflexion, je pense que cette quantité énorme de noms (114236!!) vient du fait que j'ai récupéré ce fichier d'un ancien collaborateur. Du coup, j'ai retravaillé dessus sans me rendre compte de la quantité des noms existante. Alors que moi je n'ai créé dedans que 3 plages de noms 😅
La prochaine fois je repartirai d'un fichier vierge.

En tout cas, je vous remercie infiniment de votre aide! 🙏🙏🙏

 

[TooFatBoy]

Par contre, tellement il en y avait de noms, elle a mis trop longtemps pour s'exécuter.

J'avais supprimé les 10 000 premiers noms, en quelques minutes, avec la macro que j'avais donnée.

Puis j'ai utilisé la même macro que toi pour supprimer les 60 000 derniers noms, et ça a mis environ 12 heures !

 

[midovic]

J'avais supprimé les 10 000 premiers noms, en quelques minutes, avec la macro que j'avais donnée.

Puis j'ai utilisé la même macro que toi pour supprimer les 60 000 derniers noms, et ça a mis environ 12 heures !

Exactement! 😅 j'avoue que je n'ai pas compter le temps! mais je dirais au moins 8 ou 10 heures