XL 2010 Supprimer le nom de cellules

David73 · 9 Octobre 2019

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

VB:

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 · 9 Octobre 2019

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 · 10 Octobre 2019

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 · 10 Octobre 2019

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

VB:

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 ?

XL 2010 Supprimer le nom de cellules

David73

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

XL 2010 Supprimer le nom de cellules

David73

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency