XL 2016 Effacer noms erronés

KTM · 5 Mai 2020

Bonsoir chers tous
mon gestionnaire de noms est bourré de noms erronés que je voudrais supprimés par macro.
Comment procéder ? MERCI

Jacky67 · 6 Mai 2020

KTM à dit:
Bonsoir chers tous
mon gestionnaire de noms est bourré de noms erronés que je voudrais supprimés par macro.
Comment procéder ? MERCI

Bonjour,
Essaye ceci
Supprime les noms qui ont comme référence "#REF"

VB:

Sub SupprimeNOM()
    Dim C As Name
    For Each C In ThisWorkbook.Names
        If InStr(C, "#REF") Then C.Delete
    Next
End Sub

KTM · 6 Mai 2020

Jacky67 à dit:
Bonjour,
Essaye ceci
Supprime les noms qui ont comme référence "#REF"

VB:

Sub SupprimeNOM() Dim C As Name For Each C In ThisWorkbook.Names If InStr(C, "#REF") Then C.Delete Next End Sub

C'est super
Comment pourrais-je l"adapter pour aussi supprimer tous les noms faisant référence à d'autres classeurs?
Mais merci

Jacky67 · 6 Mai 2020

Re..
"faisant référence à d'autres classeurs"
Sans connaitre le nom des classeurs, cela me semble difficile.
Cet exemple liste tous les noms et demande la suppression par oui/non

VB:

Sub SupprimeNOM()
    Dim C As Name
    For Each C In ThisWorkbook.Names
        If MsgBox("Voulez-vous supprimer ce nom==> " & C.Name & vbLf & "Fait référence à ==> " & C, 292, "Suppression") = 6 Then C.Delete
    Next
End Sub

Utiliser avec précaution

XL 2016 Effacer noms erronés

KTM

XLDnaute Impliqué

Jacky67

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Jacky67

XLDnaute Barbatruc

Discussions similaires