Bonjour,Bonsoir chers tous
mon gestionnaire de noms est bourré de noms erronés que je voudrais supprimés par macro.
Comment procéder ? MERCI
Sub SupprimeNOM()
Dim C As Name
For Each C In ThisWorkbook.Names
If InStr(C, "#REF") Then C.Delete
Next
End Sub
C'est superBonjour,
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
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