Suppression

Bonjour à tout le forum,

J'ai tellement créer de noms au niveau Insertion/Nom/Définir qu'il me faudra un certain temps pour supprimer les noms que j'utilise pas.

Il y aurait-il une solution?

Merci beaucoup à l'équipe.

Noël

bonjour,

Voici une méthode un peu artisanale

Créer dans ton classeur une nouvelle feuille que tu baptiseras "temp"

dans un module standart (Module1) coller ces 2 macros

Sub ListerNoms()
Worksheets("temp").Select
For i = 1 To Names.Count
Cells(i, 1) = Names(i).Name
Next
End Sub

Sub EffacerNoms()
For Each o In Selection
s$ = o.Text
On Error Resume Next
ActiveWorkbook.Names(s).Delete
Next
Application.DisplayAlerts = False
Worksheets("temp").Delete
End Sub

Après avoir exécuté la macro "ListerNoms" tu trouveras dans la feuille "temp" la liste de tous les noms de ton classeur.

Supprimer dans cette feuille toutes les lignes correspondant aux noms que tu veux conserver.

A ce stade il ne doit plus subsister à la fin que la liste des noms à supprimer.

Sélectionner toute la liste et exécuter la macro "EffacerNoms"

Les noms sont supprimés et la feuille "temp" également.

YAPUKA supprimer les 2 macros éventuellement.

A+

Bonjour galopin01,

Après tes instructions j'ai lancé la macro "listenoms" il y a un BUG. J'ai du mal placé ma macro dans un module standard parce que j'ai crée un module dans le VBA que j'ai collé les 2 macros.

J'aurai encore besoin de tes lumières

Merci

Cordialament

Noël

oups...

il est possible que ce soit aussi une facétie de notre ami Mac...

Il faudra attendre l'intervention de quelqu'un qui possède cette machine pour s'assurerer que ce code est valide sur cette machine.

A+

Re

Déjà réveillé cher galopin01. Chez nous il 6h45 chez toi il doit être 3h45 avec nos 3h00 de décalage.

Je pense DAN travaille sous mac il me donnera certainement la réponse ou sinon je supprimerai nom par nom.

En tous ca merci beaucoup.

Cordialement Noël