Macro qui supprime tous les noms sauf les zone d'impression

bonoboas · 5 Avril 2019

Bonjour la communauté,

J'ai trouvé une macro qui fonctionne très bien, elle me supprime tous les noms du gestionnaire de noms du classeur sauf qu' elle me supprime également la zone d'impression. Avez-vous une idée s'il vous plaît ?

VB:

Dim nm As Name
    On Error Resume Next
    For Each nm In ActiveWorkbook.Names
          nm.Delete
    Next nm

Je souhaiterais rajouter une condition : sauf "zone d'impression"

Merci d'avance pour votre aide.

Cordialement

Anthony

mapomme · 5 Avril 2019

Bonsoir @bonoboas,

Essayez:

VB:

Sub test()
Dim nm As Name
  On Error Resume Next
  For Each nm In ActiveWorkbook.Names
    If Not nm.Name Like "*!Print_Area" Then nm.Delete
  Next nm
End Sub

bonoboas · 9 Avril 2019

Parfait ! Merci beaucoup !

Macro qui supprime tous les noms sauf les zone d'impression

bonoboas

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

bonoboas

XLDnaute Occasionnel

Discussions similaires