Effacer objets dessin...

[Rick@]

Bonjour,

J'ai un problème de poid (pas moi mais mon fichier) J'ai des onglets mensuels remplie de données qui se recopient dans un autre onglet appelé "Bw" qui lui sert d'onglet "maitre" pour allimenter un tableau.

Le problème c'est qu'il y a des objets dessin (genre flèche avec hyperlien) dans chaque onglets mensuels et quand ils sont recopiés (par macro) dans l'onglet "maitre" les fameux objets dessin se recopient à chaque fois par dessus les anciens et alourdissent l'onglet maitre... j'en suis rendu à 43M sans l'onglet maitre 7m seulement (plus normal)

Question:Comme je ne peux recommencer le fichier (trop long) ou l'onglet car toutes les formules seront détruites dans l'onglet tableau, Comment recopier les onglets sans les objets ou comment les effacers rapidement dans l'onglets maitre???

Merci pour votre intérêt!!!

 

[tototiti2008]

Re : Effacer objets dessin...

Bonjour Rick,

Pour supprimer tous les objets d'une feuille :
Menu Edition - Atteindre
Cellules...
Objets
OK
Touche Suppr

 

[Pierrot93]

Re : Effacer objets dessin...

Bonjour,

essaye ceci, attention effacera TOUS les objets (shapes) de la feuille active...

ActiveSheet.Shapes.SelectAll
Selection.Delete

bonne soirée
@+

Edition : bonsoir Toto

 

[Pierrot93]

Re : Effacer objets dessin...

Re, bonsoir cc

bonsoir

tototiti 🙂 🙂 ,Pierrot93 🙂🙂

mon grain de sel 🙄

ActiveSheet.DrawingObjects.Delete

efface tout même les boutons combobox ......

Euh... mon code également... enfin chez moi...

 

[Pierrot93]

Re : Effacer objets dessin...

re

oui mais un grand garçon comme toi qui utilise le "SelectAll"mérite une punition privé d'apéro !

Aarf, Aarf.. bah m'en passerais...😡

 

[Rick@]

Re : Effacer objets dessin...

Problème résolu, çà été long car plusieurs couches d'objets et beaucoups de temps pour la digestion d'excel...Mais enfin c'est le résultats qui compte de 43M je suis maintenant à 7M et me sens frais comme un neuf et rapide avec çà!

Gros merci pour ton petit truc Tototiti2008!!! et aussi aux autres qui s'y sont interressé.

Au plaisir!