Travaillez-vous régulièrement avec des feuilles de calcul contenant des dizaines (ou des centaines)

de cellules nommées, et la plupart de ces noms sont inutiles? Nettoyer les noms peut être une tâche énorme, mais vous débarrasser de ceux dont vous n’avez pas besoin peut rendre votre classeur plus petit et plus efficace. Le problème est de savoir comment se débarrasser d’un grand nombre de noms inutiles en même temps? Vous pouvez certainement les supprimer un par un, mais un tel processus devient vite fastidieux. Vous pouvez également utiliser le gestionnaire de noms pour les supprimer (appuyez sur Ctrl + F3), mais cela peut également prendre beaucoup de temps.

Une solution possible consiste simplement à créer un nouveau classeur et à copier les cellules de l’ancien classeur vers le nouveau. Mettez en surbrillance les cellules de l’ancien classeur, utilisez Ctrl + C pour les copier, puis collez-les dans des feuilles de calcul dans le nouveau classeur. Cela copiera presque tout de l’ancien classeur – formules, formatage, etc. Il n’apporte pas de copie sur les paramètres d’impression ou les noms de plage. La seule tâche qui reste alors est de redéfinir les quelques noms que vous souhaitez dans le nouveau classeur.

Si vous préférez travailler avec l’ancien classeur (celui avec tous les noms), il est préférable de créer une macro qui supprimera le nom pour vous. Vous avez besoin d’une macro qui vous permettra de supprimer tous les noms sauf ceux que vous souhaitez conserver. Voici une approche simple qui accomplit cette tâche:

Sub DeleteSomeNames()

Dim vKeep     Dim nm As Name     Dim x As Integer     Dim AWF As WorksheetFunction

'Add Names to keep here     vKeep = Array("Name1", "Name2")



Set AWF = Application.WorksheetFunction     For Each nm In ActiveWorkbook.Names         x = 0         On Error Resume Next         x = AWF.Match(nm.Name, vKeep, 0)

On Error GoTo 0         If x = 0 Then             nm.Delete         End If     Next     Set AWF = Nothing End Sub

Avant d’utiliser la macro, modifiez la ligne qui crée le tableau vKeep.

Entrez simplement les noms que vous souhaitez conserver dans le tableau, chaque nom entouré de guillemets et séparé par des virgules. (Dans l’exemple illustré ici, les noms «Nom1» et «Nom2» seront conservés.) La macro effectue une boucle sur tous les noms du classeur et utilise la fonction Match pour voir si le nom est un dans le tableau. Si ce n’est pas le cas, il est supprimé.

Si vous préférez utiliser une solution tierce pour gérer les noms dans votre classeur, un excellent choix est le complément Name Manager, écrit par Jan Karel Pieterse. Vous pouvez trouver plus d’informations sur 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 (11787) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Deleting_All_Names_but_a_Few [Suppression de tous les noms sauf quelques-uns].