XL 2010 Supprimer le nom de cellules

[David73]

Bonjour,
je souhaite créer une macro qui supprime les noms des cellules sélectionnées :

Sub Suppression()
'   Supprime le nom d'une cellule
    For Each r In Selection
        If r.Name <> "" Then
            r.Name.Delete
        End If
    Next
End Sub

Le problème est que j'ai une erreur lorsque une cellule sélectionnée n'a pas de nom :
"Erreur d'exécution 1004"

Il faudrait faire un test mais je n'y parviens pas.
Si quelqu'un aune idée.
Merci

 

[Staple1600]

Bonsoir job75

J'avais testé le code que j'ai soumis en nommant quelques cellules en colonne A (directement dans la zone de nom)
Et les noms étaient bien effacés sans qu'Excel ne bronche.

Question existentielle
Savoir combien de noms ont été supprimé vaut-il l'affichage d'un MsgBox?
1,2 ou 3, peu importe, on n'y pourra rien changé (puisqu'ils sont supprimés)

 

[job75]

Avec For Each nName In Names ta macro est sans doute placée dans le code d'une feuille.

Définis un nom dans cette feuille (pas dans le classeur) par la formule =1 tu auras un bug.

 

[Staple1600]

Re

Non, code dans un module standard et les noms était du type
gdhsgdhs jfkfhfk tapés à la va-vite dans la zone de noms.

Du coup, j'ai modifié ainsi la macro de mon premier message

Sub DeleteName_Bis()
Dim nName As Name
For Each nName In Names
If InStr(nName, "=") Then
On Error Resume Next
nName.Delete
End If
Next nName
End Sub

Les noms dans la sélection sont effacés (ainsi que toto qui était =à 1, niveau feuille)
Evidemment le On Error... y est pour beaucoup.

PS: Je crois que mon code est trop radical, il doit aussi effacer les zones d'impressions s'il y en a, non ?