Suppression noms définis

[Calvus]

Bonsoir à tous,

J'ai des noms définis que j'aimerais supprimer d'un classeur.
Y a t'il un moyen de vérifier si ces noms ne sont pas utilisés quelque part dans le classeur avant d'effectuer la suppression ? Une vérification manuelle étant impossible.

Merci

 

[Roland_M]

Re : Suppression noms définis

bonjour,

ceci pour supprimer à la demande,
mais ce n'est pas comme les formats cellules personnalisées
on ne peut savoir si ces noms sont tous utilisés ou pas !?
du moins pas que je sache !? il n'y a que l'intéressé qui peut le savoir !?

Sub SupprNames()
Dim N As Name
For Each N In Names
 If MsgBox("Supprimer: " & N.Name & " ?", vbYesNo) = vbYes Then N.Delete
Next
End Sub

 

[BOISGONTIER]

Re : Suppression noms définis

Bonjour,

>Y a t'il un moyen de vérifier si ces noms ne sont pas utilisés

Cf Supprimer les noms de champs inutilisés

http://boisgontierjacques.free.fr/fichiers/champs/NomsChamps.xls

JB

 

[MJ13]

Re : Suppression noms définis

Bonjour à tous

Sinon, F3 puis alt+l te donne l'ensemble des noms définis dans une feuille du classeur.

 

[Roland_M]

Re : Suppression noms définis

re:

bonjour à toi BOISGONTIER !

à savoir, comme il est précisé, que c'est pour ... des noms de champs utilisés par des formules ! (soit dans feuil.excel)
car les noms définis qui sont utilisés dans VBA ne seront pas détectés !
c'est cela aussi que je voulais dire !

EDIT: salut à toi aussi MJ13 !

 

[job75]

Re : Suppression noms définis

Bonjour à tous,

Sub SupprimerNomsDéfinis()
Dim nom As Name, w As Worksheet, n As Name
For Each nom In ThisWorkbook.Names
  '---recherche dans les feuilles---
  For Each w In Worksheets
    If Not w.Cells.Find(nom.Name, , xlFormulas, xlPart) Is Nothing Then GoTo 1
  Next
  '---recherche dans les définitions des autres noms---
  For Each n In ThisWorkbook.Names
    If InStr(n.RefersTo, nom.Name) Then GoTo 1
  Next
  '---Comme le signale Roland, il faudrait aussi chercher dans les macros !!---
  nom.Delete
1 Next
End Sub

Edit : ah oui, il y a aussi les formules des Mises en forme conditionnelles...

A+

 

[Calvus]

Re : Suppression noms définis

Bonjour à vous,

Merci pour vos réponses.
J'ai l'impression que la macro de JB soit plus sure dans le sens où elle permet de vérifier et d'afficher avant la suppression.
Comme je ne saurai pas modifier les codes de Job et de Roland pour cela...

MJ13

Sinon, F3 puis alt+l te donne l'ensemble des noms définis dans une feuille du classeur.

MJ13, je ne connaissais pas cette possibilité, mais elle donne tous les noms du classeur.
Je ne vois pas de différence avec CtrlF3 (mis à part de pouvoir tout afficher sur une feuille, ce qui peut être bien pratique). A moins que je n'aie pas bien saisi la manip.

Merci et bonne journée

 

[MJ13]

Re : Suppression noms définis

Re

MJ13, je ne connaissais pas cette possibilité, mais elle donne tous les noms du classeur.
Je ne vois pas de différence avec CtrlF3 (mis à part de pouvoir tout afficher sur une feuille, ce qui peut être bien pratique). A moins que je n'aie pas bien saisi la manip.

Oui, désolé, je me suis planté😱.

Mon but est surtout de faire connaître des solutions qui en général sont très simple à mettre en œuvre🙂.

Bon, c'est vrai qu'on avait que la moitié du problème 😀.