Each nom delete ne fonctionne pas

Version imprimable

06/06/2019, 10h25
buigui

1 pièce(s) jointe(s)

Each nom delete ne fonctionne pas
Bonjour
En 2017 j’étais sur MAC excel 2011, je recherchais sur ce forum une macro permettant d’effacer les noms de plage.
https://www.developpez.net/forums/d1...e/#post9594955

On me proposait les 4 macros ci-dessous qui toutes fonctionnaient.
Code:

1 2 3 4 5 Sub Effacer_nom_A() For Each Nom In ActiveWorkbook.Names ActiveWorkbook.Names(Nom.Name).Delete Next End Sub
Code:

1 2 3 4 5 6 7 8 Sub Effacer_nom_B() Dim Nom As Name MsgBox ThisWorkbook.Names.Count For Each Nom In ThisWorkbook.Names Debug.Print Nom.Name Nom.Delete Next Nom End Sub
Code:

1 2 3 4 5 6 7 8 Sub Effacer_nom_C() Dim N As Name With ActiveWorkbook For Each N In .Names N.Delete Next End With End Sub
Code:

1 2 3 4 5 6 Sub Effacer_nom_D() Dim Nom As Name For Each Nom In ThisWorkbook.Names Nom.Delete Next End Sub
Je suis passé hier sur MAC excel 2016, et en essayant d’appliquer ma macro habituelle A sur un certain fichier (effacer nom 2019.xlsx) contenant un grand nombre de noms de plage à effacer, il m’apparait le message d’erreur d’exécution « 1004 ». « La syntaxe de ce nom est incorrecte. Vérifiez que le nom commence par une lettre ou un trait de soulignement ».

Après plusieurs essais des 4 macros, depuis soit le fichier 2017, soit le fichier 2019, les macros étant stockées soit sur le fichier 2017, soit sur le ficher 2019, j’ai les résultats suivants :
T1- Dans Fichier 2019, application des macros stockées sur fichier 2019 : message d’erreur cité plus haut.
T2- Dans fichier 2019, application des macros stockées sur fichier 2017 : message d’erreur idem
T3- Dans fichier 2017, application des macros stockées sur fichier 2019 : message d’erreur idem
T4 Dans fichier 2017, application des macros stockées sur fichier 2017 : tout OK, pas de message d’erreur.

Ces tests signifient-ils que le problème viendrait :
- soit des noms de listes de 2019 (T2)
- soit du module de macro de 2019 (T3)
- soit des deux (T1)..?

Pouvez-vous m’aider svp ?

PS: le fichier 2019 dépasse les 2 Mo, il est disponible sur le lien: https://wetransfer.com/downloads/15a...6081557/98fa66

Citation:

Envoyé par buigui

Bonjour,

Je n'ai pas de Mac.
Testez le code suivant. A adapter sur vos autres procédures le cas échéant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Effacer_nom_D()
 
Dim Nom As Name
 
    For Each Nom In ThisWorkbook.Names
        Select Case Mid(Nom.Name, 1, 1)
               Case "a" To "z", "A" To "Z", "_"
                    Nom.Delete
        End Select
    Next
 
End Sub

06/06/2019, 13h59
buigui

Bonjour Eric,

Même message d'erreur.
06/06/2019, 15h03
Jean-Philippe André
Salut,

d'une manière générale, faire une boucle sur laquelle est basée une liste ou une plage, et travailler à agrandir ou rétrécir cette plate à l'intérieur de la boucle, c'est toujours piégeux.

Pour t'éviter le soucis d'un for each + delete, je te suggère une boucle tout aussi simple :
Code:

1 2 3 4 5 Sub SupprimerTousLesNoms() Do While ThisWorkbook.Names.Count > 0 ThisWorkbook.Names(1).Delete Loop End Sub
06/06/2019, 16h24
buigui

Bonjour Jean-Philippe

Toujours le même message d'erreur.
06/06/2019, 16h31
Invité

Citation:

Envoyé par buigui

Avez-vous des tables référencées dans votre fichier ?
06/06/2019, 16h40
buigui

Citation:

Envoyé par Eric KERGRESSE

Avez-vous des tables référencées dans votre fichier ?

Comment le savoir?
Sinon, je ne pense pas, le fichier 'effacer noms 2019' que j'ai joint est vierge, il n'y que que des noms de liste à l'intérieur.

Salut,

tu pourrais nous dire le dernier nom qui apparait avec ta macro B ?
Code:

1 2 3 4 5 6 7 8 Sub Effacer_nom_B() Dim Nom As Name MsgBox ThisWorkbook.Names.Count For Each Nom In ThisWorkbook.Names Debug.Print Nom.Name Nom.Delete Next Nom End Sub
qu'on sache sur quoi il pleure

Citation:

Envoyé par buigui

Comment le savoir?
Sinon, je ne pense pas, le fichier 'effacer noms 2019' que j'ai joint est vierge, il n'y que que des noms de liste à l'intérieur.

Sur Excel 2010, la suppression fonctionne correctement sur votre fichier.

Sinon, je suis intervenu chez un client équipé d'un Mac qui avait aussi ce genre de problème, je crois me rappeler (mais pas sur) que c'était lié à une table :
Au cas où.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub NbListObjects()
 
Dim I As Integer
Dim DecompteListObjects As String
 
    DecompteListObjects = "Liste des tables :" & Chr(10)
    For I = 1 To Worksheets.Count
        With Worksheets(I)
             DecompteListObjects = DecompteListObjects & .Name & " : " & .ListObjects.Count & Chr(10)
        End With
    Next I
 
    MsgBox DecompteListObjects
 
End Sub

Sinon, regardez si vous avez des zones nommées avec des noms bizarres avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub ListerLesZonesNommees()
 
Dim ShListesZones As Worksheet
Dim MaZoneNommee As Name
Dim LigneTitreZone As Long, DerniereLigneZNommee As Long
 
    Set ShListesZones = Sheets.Add(before:=Sheets(1))
 
    With ShListesZones
         LigneTitreZone = 10
         DerniereLigneZNommee = LigneTitreZone + 1
         With .Range(.Cells(LigneTitreZone, 1), .Cells(LigneTitreZone, 2))
            .Value = Array("Nom", "Adresse")
            .Interior.Color = RGB(255, 255, 0)
            .Font.Bold = True
         End With
 
         For Each MaZoneNommee In ActiveWorkbook.Names
             .Cells(DerniereLigneZNommee, 1).Value = MaZoneNommee.Name
             .Cells(DerniereLigneZNommee, 2).Value = "'" & MaZoneNommee.RefersTo
             DerniereLigneZNommee = DerniereLigneZNommee + 1
         Next MaZoneNommee
 
    End With
 
    Set ShListesZones = Nothing
 
End Sub

07/06/2019, 09h16
buigui
Citation:
Envoyé par Jean-Philippe André

Salut,

tu pourrais nous dire le dernier nom qui apparait avec ta macro B ?

Code:

1 2 3 4 5 6 7 8 Sub Effacer_nom_B() Dim Nom As Name MsgBox ThisWorkbook.Names.Count For Each Nom In ThisWorkbook.Names Debug.Print Nom.Name Nom.Delete Next Nom End Sub

qu'on sache sur quoi il pleure
Bonjour
Que veux-tu dire par dernier qui apparait avec macro B, puisque, la macro B bugge et fait apparaitre le message d'erreur.
Sinon le dernier nom de la liste est "zonevalp".
13/06/2019, 12h06
buigui

Eric

Merci pour votre réponse.

Votre macro 'lister les zones nommées" bugge.
Votre macro nblistobjects, donne 0 table pour chacune des feuilles de mon classeur.

Après vérification fichier Effacer nom 2019.xlsx que j'ai joint ne vous permet pas de voir le problème que j'évoque.
Mon problème initial est situé sur un classeur 'Etude 2019.xlsb' qui contient plusieurs feuilles.
Lorsque pour vous soumettre le problème je le convertis d'abord en un 'Effacer nom 2019.xlsb' sur lequel je ne laisse qu'une feuille sans données, puis en un 'Effacer 2019.xlsx'.
Or arrivé là, le problème a disparu.
- Au stade 'Effacer nom 2019.xlsb', le problème est toujours présent
- lorsque je convertis mon 'Etude 2019.xlsb' en 'Etude 2019.xlsx', le problème ne disparait pas.
- lorsque je convertis 'Effacer nom 2019.xlsb' en 'Effacer nom2019.xlsm', le problème disparait également. Tant en xlsx que xlsm, pour que le problème disparaisse, il convient de les fermer après conversion pour les réouvrir.
Pour que vous puissiez constater le problème, 'Effacer 2019.xlsb' et 'Etude 2019.xlsb' sont des fichiers binaires, je ne peux pas les soumettre ici. Etude 2019.xlsx est trop gros pour être déposé ici. J'ai donc déposé ces trois fichiers sur we transfer: https://we.tl/t-xYx9avGDMh
Pouvez-vous constater le problème également?
Merci par avance
13/06/2019, 12h29
patricktoulon

1 pièce(s) jointe(s)

re

re
bonjour

il faudrait vérifier que certain noms dans tes name ne soit pas des tableaux structurés ca créé peut être une erreur lors du delete
chez moi 2007 ca efface tout et sur 2013 ca plante sur les TS
dans la fenêtre des noms tu les reconnais avec les icons
Pièce jointe 483179
si tu en a il faudra les excepter dans une sousboucle sur les listobjects
13/06/2019, 13h55
buigui

1 pièce(s) jointe(s)

- En ma connaissance il n'y a pas de tableaux structurés dans les noms listés. Maintenant dur de l'affirmer, il y a 800 noms.
Et puis, mon fichier 'effacer noms 2019.xls' qui fonctionne découle de 'Etude 2019.xlsb' qui lui ne fonctionne pas. Les deux fichiers ont donc les mêmes noms de listes.
- Quelle boucle verrais-tu, une avec ifnot + iserror?
- Sur ma version d'excel je n'ai pas d'icone comme les tiens

Pièce jointe 483206
20/06/2019, 13h50
buigui

Bonjour
Est-ce que quelqu'un a une solution pour régler ce problème d'effacement de noms?
Ou quelqu'un peut-il m'aider à nettoyer mon fichier, autrement que manuellement?
Merci par avance.