Discussion :

[buigui]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Effacer_nom.xlsx

[Jean-Philippe André]

Salut,

un pragmatique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[joe.levrai]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[buigui]

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

[RyuAutodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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