Each nom delete ne fonctionne pas

Bonjour

La macro ci-dessous a pour but de supprimer toutes les noms de plage du classeur actif.

Code:

---

1 2 3 4 5 6

Sub EFFACER() For Each Nom In ActiveWorkbook.Names ActiveWorkbook.Names(Nom.Name).Delete Next   End Sub

---

Seulement, elle fonctionne avec certains classeurs, et avec d'autres elle bugge. Au débogage, elle indique "next".

J'ai essayé d'y parer en introduisant:

Code:

---

1 2 3

If Not IsError(ActiveWorkbook.Names(Nom.Name)) Then ActiveWorkbook.Names(Nom.Name).Delete End If

---

Cela ne résout pas le problème. Ci-joint le fichier excel.

Quelqu'un voit il?

Merci par avance

Pièce jointe 289048

Salut,

un pragmatique

Code:

---

1 2 3 4 5 6

Sub piou() Dim Nom As Name For Each Nom In ThisWorkbook.Names Nom.Delete Next End Sub

---

fait l'affaire sur ton fichier chez moi (Excel 2010). Du coup essaie le, ce probleme n'apparait pas dans la liste des problemes connus sous Mac (source : https://www.rondebruin.nl/mac/mac027.htm)

Bonjour,

j'ai rencontré une fois le cas, et par tâtonnement j'ai réalisé ceci :

Code:

---

1 2 3 4 5 6

For Each C In WB.Names ' _xlfn. est une donnée présente dans le gestionnaire de nom ' qui permet uniquement à Excel de savoir si la formule SIERREUR est supportée ! ' on ne peut pas la supprimer, il faut la détecter pour ne pas la traiter If Not C.Name Like "_xlfn.*" Then C.Delete Next C

---

il semblerait que des "noms cachés" existent parfois et qu'on ne peut pas les supprimer, ils sont utilisés pour de la compatibilité je pense.

regarde si ça ne proviendrait pas de cela

Dans la négative, je t'invite à :

- lancer une première procédure qui va lister chez nom et son Range
- lancer ensuite ta procédure de suppression des noms, en neutralisant les erreurs
- relancer la première procédure et visualiser les noms qui n'ont pas été supprimés

Bonjour Jean-Philippe André et Joe Levrai

Merci pour vos réponses, je les ai testées et elles ne fonctionnent pas.
Il n'y pas de bug, mais la liste des noms ne s'efface pas.
Fonctionnent-elles lorsque vous les appliquez sur le fichier que j'ai joint?

La particularité du code que j'ai cité initialement, c'est qu'il fonctionne la plupart du temps. Seulement parfois, comme dans l'excel joint, rien à faire, cela beugue.

Merci par avance de vos retours
Cdt
Guillaume

Bonjour,

J'ai testé ton classeur, si celui-ci avait un problème, je ne l'ai pas rencontré :
j'y ai mis ce code :

Code:

---

1 2 3 4 5 6 7 8

Sub toto() Dim N As Name With ActiveWorkbook For Each N In .Names N.Delete Next End With End Sub

---

Edit : Vérifie peut être les mise à jour de ton Excel …
Edit 2 : juste une précision, je l'ai testé sur Excel 2011 version 14.7.6

Aucun souci de mon côté également

quand ça plante, essaye de récupérer le nom qui pose problème, et refais des tests pour voir si c'est toujours le même ou non

Bonjour,

Aucun problème sur ton classeur, 564 noms supprimés.
Avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test()   Dim Nom As Name   MsgBox ThisWorkbook.Names.Count   For Each Nom In ThisWorkbook.Names   Debug.Print Nom.Name Nom.Delete   Next Nom   End Sub

---

Bonjour
Aucun problème chez moi non plus.
Une supposition (vaut ce qu'elle vaut) : un nom a été ajouté dynamiquement sur un autre classeur que le classeur actif.
Je me méfie personnellement toujours de l'utilisation de ActiveWorkBook et de Thisworkbook. Mal maîtrisée = surprises possibles à la clef.