Discussion :

[micaub]

Bonjour à tous.

J'ai lu cette discussion.

Tout d'abord, merci pour le code qui fonctionne très bien. Je ne comprend pas en effet pourquoi il n'y a pas de commande plus simple en VBA pour ce genre d'action (visual ) basique.

Ma question vient en fait à la suite de l'effacement de tous les graphiques. Vous n'êtes pas sans savoir qu'Excel nomme les graphique par "Graphique XXX" avec XXX un numéro d'index qui s'incrémente à la création de chaque nouveau graphique.

Or, lorsque je supprime tous les graphique de ma feuille, le numéro d'index ne se réinitialise pas : il continue au numéro arrêté avant l'effacement des graphiques. Ainsi, si on fait plusieurs fois la même action, on peut se retrouver avec un index très élevé (genre "graphique 18923") alors qu'il n'y a en réalité que quelques graphiques sur ta feuille...

Je me demandais d'une part si ça n'occupait pas de la mémoire inutilement, vu qu'Excel conserve les index des graphiques déjà créés... Mais également, je me demandais s'il n'était pas possible de réinitialiser cet index afin que le numéro des index corresponde toujours au nombre de graphiques réellement présent dans le classeur.

J'espère avoir réussi à faire comprendre mon interrogation...
Encore merci pour le code et bonne journée à tous.

Cordialement.

MA

[ouskel'n'or]

Bonjour Micaub, bienvenue sur le forum.
A propos de ta question, tu as une interressante discussion sur le problème ici. Le problème des shapes est le même.
Quant au choix d'une méthode pour identifier un objet incrémenté par Excel, ce sera à l'inspiration de chacun...
Bonne journée

[micaub]

Bonjour Micaub, bienvenue sur le forum.

Je te remercie.

A propos de ta question, tu as une interressante discussion sur le problème ici. Le problème des shapes est le même.
Quant au choix d'une méthode pour identifier un objet incrémenté par Excel, ce sera à l'inspiration de chacun...

Ouah, je ne pensais pas que cette interrogation avait déjà déchainé les passions sur le forum.
J'avais déjà effectué une recherche mais j'avais cherché l'incrémentation des graphiques et non des shapes, ce qui explique que je n'avais pas encore vu ce topic.

Je vais donc basculer sur cette discussion (qui, qui plus est, est toute récente) afin de bien comprendre le problème.

Encore merci et à bientôt.
Cordialement.

MA

[mapeh]

Bonjour,

enfin bref, une commande plus simple en somme, sans boucle.

pour tous les supprimer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects.ShapeRange.Delete