Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Effacer tous les noms

Effacer tous les noms

4 réponses
Avatar
Gaspareau
Bonjour

Je voudrais pouvoir effacer d'un coup tous les noms inclus
dans un fichier

Avec l'aide de l'enregistreur et d'une macro que j'utilise déjà,
j'arrive à ceci mais ça ne fonctionne pas.

Je ne comprend pas où est le problème qqun peut m'aider ??

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

Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Gaspareau,

j'utilise celle ci qui fonctionne bien,

Sub DetruireNom()
Set nms = ActiveWorkbook.Names
For r = 1 To nms.Count + 1
On Error Resume Next
nms(r).Delete
Next
End Sub

isabelle


Bonjour

Je voudrais pouvoir effacer d'un coup tous les noms inclus
dans un fichier

Avec l'aide de l'enregistreur et d'une macro que j'utilise déjà,
j'arrive à ceci mais ça ne fonctionne pas.

Je ne comprend pas où est le problème qqun peut m'aider ??

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

Merci


Avatar
Starwing
For Each N In ActiveWorkbook.Names
ActiveWorkbook.Names(N.Name).Delete
Next


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
"Gaspareau" a écrit dans le message de
news:
Bonjour

Je voudrais pouvoir effacer d'un coup tous les noms inclus
dans un fichier

Avec l'aide de l'enregistreur et d'une macro que j'utilise déjà,
j'arrive à ceci mais ça ne fonctionne pas.

Je ne comprend pas où est le problème qqun peut m'aider ??

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

Merci




Avatar
Starwing
Ou bien pour reprendre un peu ton exemple:

Dim N As Name
For Each N In ActiveWorkbook.Names
N.Delete
Next N


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
"Starwing" a écrit dans le message de
news:
For Each N In ActiveWorkbook.Names
ActiveWorkbook.Names(N.Name).Delete
Next


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
"Gaspareau" a écrit dans le message de
news:
Bonjour

Je voudrais pouvoir effacer d'un coup tous les noms inclus
dans un fichier

Avec l'aide de l'enregistreur et d'une macro que j'utilise déjà,
j'arrive à ceci mais ça ne fonctionne pas.

Je ne comprend pas où est le problème qqun peut m'aider ??

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

Merci








Avatar
Gaspareau
Merci beaucoup

Ça fonctionne très bien !!!


"Starwing" a écrit dans le message de
news:
Ou bien pour reprendre un peu ton exemple:

Dim N As Name
For Each N In ActiveWorkbook.Names
N.Delete
Next N


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
"Starwing" a écrit dans le message de
news:
For Each N In ActiveWorkbook.Names
ActiveWorkbook.Names(N.Name).Delete
Next


--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
"Gaspareau" a écrit dans le message de
news:
Bonjour

Je voudrais pouvoir effacer d'un coup tous les noms inclus
dans un fichier

Avec l'aide de l'enregistreur et d'une macro que j'utilise déjà,
j'arrive à ceci mais ça ne fonctionne pas.

Je ne comprend pas où est le problème qqun peut m'aider ??

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

Merci