Macro suppression gestionnaire de nom

[lostheroe]

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.

 

[job75]

Re : Macro suppression gestionnaire de nom

Bonjour lostheroe,

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+

 

[lostheroe]

Re : Macro suppression gestionnaire de nom

Bonjour Job57,

Merci pour ta solution ça marche pile poile.