Macro suppression gestionnaire de nom

lostheroe

XLDnaute Occasionnel
Bonjour,

J'essaye de mettre au point un macro pour supprimer automatiquement tous les noms présent dans gestionnaire de nom sauf les zones d'impression.
Malheureusement la macro supprime tout les noms sans aucune dissociation.
 

Pièces jointes

  • Zone d'impression.xlsm
    24.2 KB · Affichages: 40

job75

XLDnaute Barbatruc
Re : Macro suppression gestionnaire de nom

Bonjour lostheroe,

Code:
Sub suppression()
Dim n As Name
For Each n In ActiveWorkbook.Names
If Not n.Name Like "*Print_Area" Then n.Delete
Next
End Sub
PS : je vous ai aussi envoyé une solution sur votre autre fil.

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510