[Excel] Effacer en 1 fois +sieurs noms
tsing
Messages postés
782
Date d'inscription
Statut
Membre
Dernière intervention
-
tsing Messages postés 782 Date d'inscription Statut Membre Dernière intervention -
tsing Messages postés 782 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Comment effacer en une seule fois, les noms définis de cellules ou de plages ?
J'ai un classeur qui me sert d'essai, il commence à contenir trop de noms dont je n'ai pas besoin.
merci
Comment effacer en une seule fois, les noms définis de cellules ou de plages ?
J'ai un classeur qui me sert d'essai, il commence à contenir trop de noms dont je n'ai pas besoin.
merci
A voir également:
- [Excel] Effacer en 1 fois +sieurs noms
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Mise en forme conditionnelle excel - Guide
- Si ou excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
5 réponses
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
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
tsing
Messages postés
782
Date d'inscription
Statut
Membre
Dernière intervention
80
Mais, si on veut en conserver quelques uns dans le lot ? ! merci
Bonjour,
si tu les connais, dis moi ceux que tu veux garder et je modifierais le code en conséquence.
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
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 ^^
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 ^^
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
