[Excel] Effacer en 1 fois +sieurs noms

Bonjour,

pour effacer tous les noms, utilise cette macro :

Tu vas dans outils/macros, visual basic editor.

Tu fais insertion, module
La ou il y a le curseur, tu colles ce code :

Sub suppressionnom()
i = 1
Do While ActiveWorkbook.Names.Count <> 0
ActiveWorkbook.Names(i).Delete
Loop
End Sub

Cette macro te supprimera tous les noms de ton classeur

Bonjour,

si tu les connais, dis moi ceux que tu veux garder et je modifierais le code en conséquence.

essaie ca :

Sub suppressionnom()
i = 1
Do While i <= ActiveWorkbook.Names.Count
a = MsgBox("Voulez-vous supprimer le nom : " & ActiveWorkbook.Names(i).Name & " ?", vbYesNo, "Suppression de noms")
If a = 6 Then
ActiveWorkbook.Names(i).Delete
Else
i = i + 1
End If
Loop
End Sub

je me retrouve avec un erreur de compil Mais mon fichier est un vrai fléau et je m'y connais super mal.

De plus, je viens de me rendre compte qu'en faisant
Formule > Gestionnaire de noms > et en maintenant soit Maj soit Ctrl, je peux sélectionner plusieurs noms et les supprimer tous ensembles d'un coup.

Merci beaucoup quand même melanie1234 pour ton attention.

Merci aussi Ctesias ^^

tu selectionne ta plage de cellules, clique droit, effacer le contenu...

Bye