Question de rapidité

Le
DanielCo
Bonjour,
qu'est ce qui est le plus rapide ppour supprimer des shapes ?
une boucle ou :
ActiveSheet.Shapes.SelectAll
Selection.Delete
Daniel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #23281791
Salut Daniel,

ActiveSheet.DrawingObjects.Delete


;o)

--
LSteph
DanielCo
Le #23281931
Merci LSteph,
ces bons vieux drawingobjects...
Daniel


Salut Daniel,

ActiveSheet.DrawingObjects.Delete


;o)
LSteph
Le #23281911
...remarque c'est juste plus court à écrire...

En exécution je doute que l'oeil fasse là une différence même si o n
bouclait les shapes ( ce qui serait "logiquement" un poil plus long)
avec un chrono au centième peut-être, mettre le timer en debut et fin
pour voir...

@+


LSteph

On Apr 13, 2:07 pm, DanielCo
Merci LSteph,
ces bons vieux drawingobjects...
Daniel







> Salut Daniel,

> ActiveSheet.DrawingObjects.Delete

> ;o)
MichD
Le #23282761
Bonjour,

En plus, LSteph aurait pu te dire que ce code plante
sur la première ligne de code si la feuille ne contient aucune Shape

ActiveSheet.Shapes.SelectAll
Selection.Delete


Que le code suivant pose des problèmes si tu as des listes de validation
dans certaines cellules de la feuille ou des commentaires...Regarde ce
qu'elles deviennent

Dim Sh as Shape
for each sh in activesheet.shapes
sh.delete
next

En fait, cette solution est la seule qui tienne la route !
activesheet.drawingobjects.Delete


MichD
--------------------------------------------
DanielCo
Le #23282961
Bonjour Denis,
Juste.
Daniel


Bonjour,

En plus, LSteph aurait pu te dire que ce code plante
sur la première ligne de code si la feuille ne contient aucune Shape

ActiveSheet.Shapes.SelectAll
Selection.Delete


Que le code suivant pose des problèmes si tu as des listes de validation
dans certaines cellules de la feuille ou des commentaires...Regarde ce
qu'elles deviennent

Dim Sh as Shape
for each sh in activesheet.shapes
sh.delete
next

En fait, cette solution est la seule qui tienne la route !
activesheet.drawingobjects.Delete


MichD
--------------------------------------------
Publicité
Poster une réponse
Anonyme