La suppression de noms dans le classeur n’est pas un problème. Avec la commande
ActiveWorkbook.Names("zoneNom").Delete
vous pouvez supprimer un seul nom de votre classeur. Si, d’autre part, vous souhaitez supprimer tous les noms de votre classeur, utilisez la macro suivant:
Sub TousLesNomsDansUnClasseur() Dim zoneNom As Object For Each zoneNom In ActiveWorkbook.Names zoneNom.Delete Next End Sub
Commentaires
■ Définissez d’abord une variable d’objet. Utilisez ensuite la liste Noms pour accéder à tous les noms du classeur et utilisez la méthode Delete.
■ Par ailleurs, dans le dernier exemple, vous n’avez pas besoin de spécifier une instruction On Error. Si aucun nom n’est défini dans le classeur, la macro se termine toujours normalement.
Bonjour,
J’ai voulu essayer d’effacer tous les noms des plages dans mon classeur, et si le nom de la plage est strictement donner que dans une feuille,
Sub TousLesNomsDansUnClasseur()
Dim zoneNom As Object
For Each zoneNom In ActiveWorkbook.Names
zoneNom.Delete
Next
End Sub
ne peut pas supprimer ces noms.
J’en ai essayé :
Sub supprimer()
dim dede as Name
for each dede in activeworkbook.names
dede.delete
next
end sub
mais cela n’arrivait pas aussi a effacer les autres noms des plages qui sont propres aux autres feuilles.
Merci