Merci LSteph, ces bons vieux drawingobjects... Daniel
Salut Daniel,
ActiveSheet.DrawingObjects.Delete
;o)
LSteph
...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 wrote:
Merci LSteph, ces bons vieux drawingobjects... Daniel
> Salut Daniel,
> ActiveSheet.DrawingObjects.Delete
> ;o)
...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 <dcolardelle...@free.fr> wrote:
Merci LSteph,
ces bons vieux drawingobjects...
Daniel
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 wrote:
Merci LSteph, ces bons vieux drawingobjects... Daniel
> Salut Daniel,
> ActiveSheet.DrawingObjects.Delete
> ;o)
MichD
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
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
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
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
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
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