XL 2016 Nettoyer le gestionnaire de Noms

KTM · 28 Janvier 2023

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 · 28 Janvier 2023

bonjour
noms en défaut

VB:

' 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

Code:

' 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 · 28 Janvier 2023

JM27 à dit:

bonjour
noms en défaut

VB:

' 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

Code:

' 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 · 28 Janvier 2023

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

cp4 · 28 Janvier 2023

KTM à dit:
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 · 28 Janvier 2023

Bonjour

ceci devrait faire l'affaire

VB:

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 · 28 Janvier 2023

Bonjour,

Non Patrick, il faut garder les 3 noms donc :

VB:

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

A+

patricktoulon · 28 Janvier 2023

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

KTM · 28 Janvier 2023

job75 à dit:
Bonjour,

Non Patrick, il faut garder les 3 noms donc :

VB:

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

A+

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

cp4 · 28 Janvier 2023

KTM à dit:
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 · 28 Janvier 2023

cp4 à dit:
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 · 28 Janvier 2023

KTM à dit:
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.

XL 2016 Nettoyer le gestionnaire de Noms

KTM

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Discussions similaires