Richard a un classeur qu’il utilise depuis un certain temps, et il contient pas mal de noms (plages nommées, formules nommées, etc.). Il se demande s’il existe un moyen facile de trouver des noms qui ne sont pas du tout utilisés, car il aimerait se débarrasser de ces noms.

Il n’existe aucun moyen intégré de se débarrasser de ces noms inutilisés. Vous pouvez cependant créer une macro qui fera l’affaire pour vous. Cela se fait plus facilement en utilisant la méthode Find pour déterminer quels noms ont des références qui peuvent être «trouvées». Si la référence est introuvable, c’est que le nom n’est pas utilisé.

Sub RidOfNames()

Dim myName As Name     Dim fdMsg As String

On Error Resume Next     fdMsg = ""

For Each myName In Names         If Cells.Find(What:=myName.Name, _           After:=ActiveCell, _           LookIn:=xlFormulas, _           LookAt:=xlPart, _           SearchOrder:=xlByRows, _           SearchDirection:=xlNext, _           MatchCase:=False, _           SearchFormat:=False).Activate = False Then             fdMsg = fdMsg & myName.Name & vbCr             ActiveWorkbook.Names(myName.Name).Delete         End If     Next myName     If fdMsg = "" Then         MsgBox "No unused names found in the workbook"

Else         MsgBox "Names Deleted:" & vbCr & fdMsg     End If End Sub

La macro parcourt tous les éléments de la collection Names et effectue une recherche pour chaque nom. Si le nom est introuvable, le nom est supprimé. Lorsque la macro est terminée, elle affiche une boîte de message qui répertorie les noms qui ont été supprimés du classeur.

Si vous préférez ne pas créer votre propre macro, vous pouvez choisir d’utiliser un complément gratuit de Jan Karel Pieterse. Le complément, appelé Gestionnaire de noms, vous permet (devinez quoi?) De gérer les noms mieux que vous ne pouvez le faire avec Excel natif. L’une des fonctions qu’il fournit est la possibilité de se débarrasser des noms qui ne sont plus nécessaires. Vous pouvez trouver le complément ici:

http://www.jkp-ads.com/OfficeMarketPlaceNM-EN.asp

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3312) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Finding_Unused_Names [Recherche des noms inutilisés].