Discussion :

[buigui]

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 :

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

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

Code :

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

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 :

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

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 :

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

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

[Invité]

Bonjour,

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

Code :

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

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

[buigui]

Bonjour Eric,

Même message d'erreur.

[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 :

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

1
2
3
4
5
Sub SupprimerTousLesNoms()
Do While ThisWorkbook.Names.Count > 0
    ThisWorkbook.Names(1).Delete
Loop
End Sub

[buigui]

Bonjour Jean-Philippe

Toujours le même message d'erreur.

[Invité]

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