Discussion :

[pirot]

bonjour,
dans certaines (anciennes) feuilles, j'aimerai supprimer les noms définis.
j'utilise le code:

Code :

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

1
2
3
4
5
6
7
Sub supprime_noms()
On Error Resume Next
For Each Nom In ActiveWorkbook.Names
Nom.Delete
Next
On Error GoTo 0
End Sub

souci (c'est pour cela que j'ai mis un on error)
certains noms sont: V4 ou DJ12
et provoquent une erreur.

a la fin de l'execution du code, ces noms restent dans le classeur
que faire?

remarque: en VBA il se produit une erreur avec:

Code :

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

ActiveWorkbook.Names("dj2").Delete

alors que cette ligne est obtenue en enregistrant une macro.
je pense que le problème (et donc la solution) est la même:
laquelle?
merci
pirot

[mercatog]

V4 et DJ12 sont des adresses de cellules.
Tu ne peux pas nommer ainsi des plages parce qu'il y aura un conflit

[pirot]

bonjour,
je sais bien que "cela n'est pas (plus) possible"
MAIS malheureusement je trouve ce type de noms sur certaines feuilles
que je récupère et que je dois traiter! et il y en a beaucoup!
je suppose qu'une certaine aoncienne version d'excel permettait de créer de telles références.
je me vois donc contraint de faire les suppressions "à la main" ?
tant pis
comme cela fonctionne "à la main", je pouvais espérer qu'il y avait un
"additif" à placer devant le nom invalide pour forcer.
(un peu comme mettre le signe tilde devant * ou ? pour les recherches
avec vba si on ne veutpas utiliser * générique)
@+
pirot

[mercatog]

Trouvé sur le net à essayer

Code :

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

1
2
3
4
Sub SupprNoms()
 
ExecuteExcel4Macro "SUM(DELETE.NAME(NAMES()))"
End Sub

Edit:
Et aussi sur la FAQ

[pirot]

bonjour,
merci pour la piste,
mais cela ne détruit que les noms "normaux"
amicalement
pirot

ps:
j'ai aussi essayé
application.ExecuteExcel4Macro "DELETE.NAME(NAMES(""V4""))"
V4 est un des noms "interdits" dans les versions actuelles d'excel
sans erreur, mais sans succès à l'effacement.

[mercatog]

Peux tu mettre en PJ, l'une des feuilles avec ces noms récalcitrants?

[Daniel.C]

Bonjour,

Une solution serait de passer par une version d'Excel postérieure à Excel 2003. Les noms créés par XL2003 (par exemple "IW1") sont renommés "_IW1" et peuvent donc être éventuellement supprimés. Encore faut-il disposer d'une telle version.

[pirot]

bonjour,
je joints donc un classeur excel avec l'ensemble des noms de départ
après l'exécution du code,
il restera 4 noms.
@+
pirot

[Didier Gonard]

Bonjour,

C'est une question de contexte...

Va dans ton classeur dans Outils, options, général et coche styleRéférence L1C1.

lance ton code :

Code :

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

1
2
3
4
5
6
7
Sub supprime_noms()
'On Error Resume Next
For Each Nom In ActiveWorkbook.Names
Nom.Delete
Next
'On Error GoTo 0
End Sub

Tu ne devrais plus rien avoir en noms, il n'y a plus de conflits avec des noms de cellules natifs..

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[pirot]

bonjour,
merci à ormonth,
cela fonctionne pafaitement
une épine en moins dans le pied!
@+
pirot
(débutant sur le forum, je ne vois pas où est le symbole pour dire: résolu)

PS:le code devient

Code :

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

1
2
3
4
5
6
7
8
 
Sub supprime_noms()
Application.ReferenceStyle = xlR1C1
For Each Nom In ActiveWorkbook.Names
    Nom.Delete
Next
 Application.ReferenceStyle = xlA1
End Sub