supprimer les noms des plages de cellules

youky(BJ)

XLDnaute Barbatruc

• 5 Octobre 2018

• #2

Bonjour,
Peut être en ajoutant cette ligne dans le code pour avoir plus de renseignements
.Range("C" & A) = N.Address
non testé
Bruno

 

Vote positif 0 Vote négatif

S

Sofiane Boukecha

XLDnaute Nouveau

• 5 Octobre 2018

• #3

Merci Bruno,

pour les adresses je les ai, et les renseignements de ces noms
le problème, c'est qu'il y'a des adresses qui ne sont plus disponible sur mon PC (des classeurs anciens déjà supprimés)

merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Octobre 2018

• #4

Bonjour Sofiane, Bruno,

Pour supprimer les noms qui se réfèrent à un autre classeur :

Code:

Sub Epuration()
Dim n As Name
For Each n In ThisWorkbook.Names
If InStr(n.RefersTo, "[") Then n.Delete
Next
End Sub

A+

 

Vote positif 0 Vote négatif

S

Sofiane Boukecha

XLDnaute Nouveau

• 5 Octobre 2018

• #5

bonjour Job75, et merci à vous,

j'ai essayé votre solution, elle marche bien mais avec 2 inconvénient:
- votre code ne supprime pas les noms qui ont une erreur de référence (plage déjà supprimée)
- il y'a des noms qui font références a d'autre classeur , mais que j'en ai encore besoin. (si c'est pas possible, c'est pas grave, je vais les réinsérer)

merci bcp

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Octobre 2018

• #6

Re,

Voyez cette autre solution :

Code:

Sub Epuration()
Dim n As Name
For Each n In ThisWorkbook.Names
If IsError(ExecuteExcel4Macro(Mid(n.RefersToR1C1, 2))) Then n.Delete
Next
End Sub

Cela dit s'il n'y a pas trop de noms à supprimer il vaut mieux les supprimer manuellement, on voit ce qu'on fait.

Il n'est absolument pas normal qu'il y ait comme vous dites PLEIN de noms à supprimer.

A+

 

Vote positif 0 Vote négatif

S

Sofiane Boukecha

XLDnaute Nouveau

• 5 Octobre 2018

• #7

merci à vous,
mais comment les supprimer manuellement alors que les noms ne sont pas visibles sur le "gestionnaire de nom"??

pour la solution, j'ai porté pour la première qui supprime tout les noms faisant références à d'autres classeurs,
pour les erreurs de références, j'ai créé un autre code en modifiant le votre ("[" remplacé par #REF!)

Sub EpurationRef()
Dim n As Name
For Each n In ThisWorkbook.Names
If InStr(n.RefersTo, "#REF!") Then n.Delete
Next
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Octobre 2018

• #8

Re,

Sofiane Boukecha à dit:

mais comment les supprimer manuellement alors que les noms ne sont pas visibles sur le "gestionnaire de nom"??

Cliquez pour agrandir...

Allons allons :

Code:

Sub Affiche()
Dim n As Name
For Each n In ThisWorkbook.Names
n.Visible = True
Next
End Sub

Mais pourquoi certains sont-ils cachés ?

A+

 

Vote positif 0 Vote négatif

S

Sofiane Boukecha

XLDnaute Nouveau

• 5 Octobre 2018

• #9

votre code est vraiment à sa place, maintenant tout les noms sont visibles, je peux supprimer ceux qui sont de trop.
mon classeur est devenu plus souple et plus léger.
merci beaucoup à vous.
pourquoi certains étaient cachés? ça j'en ai aucune idée, l'essentiel maintenant vous m'avez donné une solution.

merci encore une fois

 

Vote positif 0 Vote négatif