VBA Impossible de supprimer tous les noms
Résolu/Fermé
netman44
Messages postés
59
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2020
-
13 janv. 2010 à 00:32
netman44 Messages postés 59 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 29 janvier 2020 - 13 janv. 2010 à 13:36
netman44 Messages postés 59 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 29 janvier 2020 - 13 janv. 2010 à 13:36
A voir également:
- VBA Impossible de supprimer tous les noms
- Impossible de supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Impossible de supprimer un fichier - Guide
- Les noms des animaux - Télécharger - Études & Formations
- Comment récupérer les messages supprimés sur whatsapp - Guide
7 réponses
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
13 janv. 2010 à 00:59
13 janv. 2010 à 00:59
bonsoir,
pour supprimer les noms, remplacer N.Names par N.Delete dans le code
pour supprimer les noms, remplacer N.Names par N.Delete dans le code
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
13 janv. 2010 à 09:39
13 janv. 2010 à 09:39
Bonjour,
peux-tu stp mettre ton classeur sur www.cjoint.com et copier le lien ici (tu peux supprimer les données, seuls les noms nous intéressent....)
peux-tu stp mettre ton classeur sur www.cjoint.com et copier le lien ici (tu peux supprimer les données, seuls les noms nous intéressent....)
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 306
13 janv. 2010 à 09:43
13 janv. 2010 à 09:43
Bonjour,
Sub supprimer_noms() nbre = ThisWorkbook.Names.Count If nbre > 0 Then For cptr = 1 To nbre ThisWorkbook.Names(1).Delete Next End If End Sub
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 750
13 janv. 2010 à 12:26
13 janv. 2010 à 12:26
Bonjour,
Salut Michel,
Tu voulais certainement dire :
Salut Michel,
Tu voulais certainement dire :
Sub supprimer_noms() nbre = ThisWorkbook.Names.Count If nbre > 0 Then For cptr = 1 To nbre ThisWorkbook.Names(cptr).Delete Next End If End Sub
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
13 janv. 2010 à 12:36
13 janv. 2010 à 12:36
Salut michel, pikaju
non non, la boucle de michel est correcte pas la suivante
l'index du nom baisse de 1 à chaque suppression, on ne peut donc pas faire Names(cptr).delete.....supprimer le 1er jusqu'à ce qu'il n'y en ait plus est la meilleur solution (sinon un ptit For Each)
non non, la boucle de michel est correcte pas la suivante
l'index du nom baisse de 1 à chaque suppression, on ne peut donc pas faire Names(cptr).delete.....supprimer le 1er jusqu'à ce qu'il n'y en ait plus est la meilleur solution (sinon un ptit For Each)
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 750
13 janv. 2010 à 12:42
13 janv. 2010 à 12:42
salut,
Exact. Merci de me réveiller...
Exact. Merci de me réveiller...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
netman44
Messages postés
59
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2020
1
13 janv. 2010 à 12:36
13 janv. 2010 à 12:36
Bonjour et merci pour vos contributions,
Je vais essayer de vous copier le fichier mais il faut que je l'aménage un peu (c'est un fichier de mon boulot).
En attendant les solutions que vous avez proposées m'amènent toujours à la même erreur.
Cordialement,
Netman
Je vais essayer de vous copier le fichier mais il faut que je l'aménage un peu (c'est un fichier de mon boulot).
En attendant les solutions que vous avez proposées m'amènent toujours à la même erreur.
Cordialement,
Netman
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
13 janv. 2010 à 12:41
13 janv. 2010 à 12:41
re netman,
oui, il semble que tu aies un nom non valide ds ts fichier (ou un autre probleme lié au fichier) sinon les 2 codes (celui de michel et celui avec for each....N.delete) sont corrects....
autre truc sinon, mets en debut du code "On Error Resume Next", lance et vérifie si il reste des noms...
tiens nous au courant
oui, il semble que tu aies un nom non valide ds ts fichier (ou un autre probleme lié au fichier) sinon les 2 codes (celui de michel et celui avec for each....N.delete) sont corrects....
autre truc sinon, mets en debut du code "On Error Resume Next", lance et vérifie si il reste des noms...
tiens nous au courant
netman44
Messages postés
59
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2020
1
13 janv. 2010 à 13:36
13 janv. 2010 à 13:36
Merci. En effet ça a marché sur une bonne partie des noms. Certains sont restés et j'ai pu terminer à la main car il n'y en avait pas beaucoup.
Je pense avoir trouvé celui qui faisait planter la macro : je n'arrive même pas à le supprimer manuellement ! Et du coup je ne comprends pas comment il a pu être créé.
Merci à vous pour vos contributions.
Netman
Je pense avoir trouvé celui qui faisait planter la macro : je n'arrive même pas à le supprimer manuellement ! Et du coup je ne comprends pas comment il a pu être créé.
Merci à vous pour vos contributions.
Netman
13 janv. 2010 à 09:18