Suppresion zone nommée via macro

[blacktiger007]

Bonjour,

Je débute petit à petit dans le VBA, et je n'arrive pas à créer une macro de suppresion de zone nommée dans excel.

J'ai essayé via une "nouvelle macro" mais je n'arrive pas à triturer le code pour arriver à mes fins.

J'ai récupéré un fichier excel qui contient une multitude de zone nommée (centaines) dont la plupart font référence à des fichiers sur d'autres ordinateurs. J'aimerai les supprimer toutes mais pour le moment je suis obligé de les supprimer une à une via "insertion/nom/définir" et cela sur chaque feuille de mon classeur... autant dire qu'il y a de quoi avoir des crampes.

Pourriez vous m'aidez à écrire une maccro me permettant de supprimer toutes les zones nommées du classeur ?

Un grand merci par avance.

code actuel
" Range("H13").Select
ActiveWorkbook.Names("Ajustement").Delete "

 

[Minick]

Re : Suppresion zone nommée via macro

Salut,

Essaie quelque chose comme ca:

Sub SupprZonesNommees()
    Dim Zone As Name
    
    For Each Zone In Names
        Zone.Delete
    Next
End Sub

 

[JCGL]

Re : Suppresion zone nommée via macro

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Del_Liste_Noms()

Dim CelNom As Name
 For Each CelNom In ActiveWorkbook.Names
    If Not CelNom.RefersToRange Is Nothing Then
    CelNom.Delete
    End If
  Next CelNom
End Sub

A+ à tous

 

[kiki29]

Re : Suppresion zone nommée via macro

Salut,

Private Sub DeleteNoms()
    With ThisWorkbook
        Do While .Names.Count > 0
            .Names(1).Delete
        Loop
    End With
End Sub

 

[blacktiger007]

Re : Suppresion zone nommée via macro

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Del_Liste_Noms()

Dim CelNom As Name
 For Each CelNom In ActiveWorkbook.Names
    If Not CelNom.RefersToRange Is Nothing Then
    CelNom.Delete
    End If
  Next CelNom
End Sub

A+ à tous

Tout d'abord merci !!

j'ai essayé mais erreur 1004 et ça bloque à
"If Not CelNom.RefersToRange Is Nothing Then"

 

[JCGL]

Re : Suppresion zone nommée via macro

Bonjour à tous,

Pourrais-tu nous dire quelle version d'XL tu utilises ?

A+ à tous

 

[blacktiger007]

Re : Suppresion zone nommée via macro

Bonjour à tous,

Pourrais-tu nous dire quelle version d'XL tu utilises ?

A+ à tous

Bonjour je suis sous excel 2003 SP3

nb: les autres propositions ne fonctionnent pas non plus

 

[JCGL]

Re : Suppresion zone nommée via macro

Bonjour à tous,

Peux-tu déposer ton fichier même sans données mais avec les Noms Définis ?

A+ à tous

 

[Minick]

Re : Suppresion zone nommée via macro

bizarre...
peux-tu mettre une feuille sans données critiques

 

[Pierrot93]

Re : Suppresion zone nommée via macro

Bonjour à tous

Jean-Claude 🙂, perso sous 2003, je récupère cette même erreur si la plage nommée ne fait pas référence à un objet "range", renseigné par du texte par exemple :

="cest un test"

bonne fin d'après midi
@+

 

[JCGL]

Re : Suppresion zone nommée via macro

Bonjour à tous,

Peux-tu essayer avec ce fichier ?

A+ à tous

 

[Minick]

Re : Suppresion zone nommée via macro

meme version que toi et pas de pb avec ma macro, par contre avec celle de JCGL un petit souci

 

[JCGL]

Re : Suppresion zone nommée via macro

Bonjour à tous,
Salut Pierrot 🙂🙂,

Effectivement
Peux-tu essayer avec :

Option Explicit

Sub Del_Liste_Noms()
Dim CelNom As Name
 
 For Each CelNom In ActiveWorkbook.Names
 CelNom.Delete
  Next CelNom
End Sub

A++
A+ à tous

 

[Pierrot93]

Re : Suppresion zone nommée via macro

Re

la, OK chez moi...

 

[blacktiger007]

Re : Suppresion zone nommée via macro

Super merci à tous !!! j'ai eu du mal car certain "nom" avait des espaces et excel n'aimait pas 🙂

du coup je suis passé par un :

Sub SupNames()
Dim i As Integer
Dim MyName As Variant


For Each MyName In ActiveWorkbook.Names
'MsgBox MyName.Name
On Error Resume Next
MyName.Visible = True
MyName.Delete
i = i + 1
Next

MsgBox i
End Sub

Encore merci, car vos propositions de code m'ont bcp aidées !!!

Bonne journée