XL 2016 Nettoyer le gestionnaire de Noms

[KTM]

Bonjour chers tous
Le gestionnaire de Noms dans mon classeur est bourré de noms inutiles ou vides.
Je voudrais une macro qui va nettoyer tous les noms sauf les noms "liste1"; "typpi";"Mois"

Par ailleurs je voudrais savoir si ce bourrage du gestionnaire de Noms aurait un impact sur le bon fonctionnement du fichier.
Merci...

 

[JM27]

bonjour
noms en défaut

' Supprimer les noms en défaut
Sub sup_nom2()
Dim Nms As Name
For Each Nms In Names
    If Nms.RefersTo Like "*REF!*" Then Nms.Delete
Next
End Sub

supprimer tout les noms

' Comment supprimer les noms d'une feuille
Sub SupprimerLesNoms()
Dim I As Integer
    On Error Resume Next
    I = MsgBox("Attention ce code supprime les plages nommées, pas de retour possible!" & Chr(10) & "Voulez vous continuer?", vbYesNo, "Attention à la macro")
    If I = 6 Then
        For I = 1 To ActiveWorkbook.Names.Count
            ActiveWorkbook.Names(I).Delete
        Next I
    End If
End Sub

il ne te reste plus qu'a adapter pour exclure les noms que tu ne souhaites pas effacer

 

[KTM]

bonjour
noms en défaut

' Supprimer les noms en défaut
Sub sup_nom2()
Dim Nms As Name
For Each Nms In Names
    If Nms.RefersTo Like "*REF!*" Then Nms.Delete
Next
End Sub

supprimer tout les noms

' Comment supprimer les noms d'une feuille
Sub SupprimerLesNoms()
Dim I As Integer
    On Error Resume Next
    I = MsgBox("Attention ce code supprime les plages nommées, pas de retour possible!" & Chr(10) & "Voulez vous continuer?", vbYesNo, "Attention à la macro")
    If I = 6 Then
        For I = 1 To ActiveWorkbook.Names.Count
            ActiveWorkbook.Names(I).Delete
        Next I
    End If
End Sub

il ne te reste plus qu'a adapter pour exclure les noms que tu ne souhaites pas effacer

Merci
Mais il existe aussi des nom sans REF!
Je veux tout nettoyer sauf les 3 cités.
Merci...

 

[JM27]

bonjour
un exemple avec deux noms et on garde le nom Toto

 

[cp4]

Merci
Mais il existe aussi des nom sans REF!
Je veux tout nettoyer sauf les 3 cités.
Merci...

Bonjour,

@KTM : D'où la nécessité de joindre un classeur pour avoir une solution répondant au problème.
Tu peux rajouter un If pour exclure les 3 noms que tu veux garder.

Bonne journée.

edit: @JM27 angle mort, pas vu

 

[patricktoulon]

Bonjour

ceci devrait faire l'affaire

Sub nameclean()
dim nam as name
For Each nam In Names
If InStr(1, " liste1 typpi Mois ", " " & nam.Name & " ") Then nam.Delete
Next
End Sub

 

[job75]

Bonjour,

Non Patrick, il faut garder les 3 noms donc :

If InStr(" liste1 typpi Mois ", " " & nam.Name & " ") = 0 Then nam.Delete

A+

 

[patricktoulon]

re
oui bien sur @job75 ,pardon au demandeur si c'est pas trop tard

 

[KTM]

Bonjour,

Non Patrick, il faut garder les 3 noms donc :

If InStr(" liste1 typpi Mois ", " " & nam.Name & " ") = 0 Then nam.Delete

A+

Merci !!
mais une erreur se produit.
Voir capture écran

 

[cp4]

Merci !!
mais une erreur se produit.
Voir capture écranRegarde la pièce jointe 1161792

Bonsoir,

@KTM : Ce repporter au post#5. En plus, typePPI et très différent de typpi.

Bonne soirée.

 

[KTM]

Bonsoir,

@KTM : Ce repporter au post#5. En plus, typePPI et très différent de typpi.

Bonne soirée.

Dans le classeur le c'est effectivement typePPI

 

[cp4]

Dans le classeur le c'est effectivement typePPI

Donc, le message d'erreur est clair. Il y a un conflit avec un nom existant dans le classeur.