VBA Supprimer Shapes : quelle macro est la plus rapide?

[Staple1600]

Bonne nuit à tous

Une question pour savoir quelle macro vaut-il mieux utiliser
(et laquelle s'éxécute la plus rapidement)

Sub supprimerformes()
Do Until ActiveSheet.Shapes.Count = 0
ActiveSheet.Shapes(1).Delete
Loop
End Sub

Sub supprimerformesII()
Dim formes As Shape
For Each formes In ActiveSheet.Shapes
    formes.Delete
Next
End Sub

Merci à ceux qui s'attarderont sur la question.

 

[mutzik]

Re : VBA Supprimer Shapes : quelle macro est la plus rapide?

Bonjour Staple,

à mon avis, pour le savoir, il faudra que tu crée une bonne centaine de 'shapes' et de faire le test pour voire une différence. Dans les deux cas, le code est très rapide

 

[ChTi160]

Re : VBA Supprimer Shapes : quelle macro est la plus rapide?

Salut Staple1600
Bonjour mutzik
Bonjour le Forum

une autre possibilité qui ne fonctionne pas en mode pas à pas (tout d'un coup ) Lol

Sub Supprimerformes()
           On Error Resume Next
With ActiveSheet
                       .Shapes.SelectAll
                Selection.Delete
End With
           On Error GoTo 0
                        Err.Clear
End Sub

Bonne journée

 

[Staple1600]

Re : VBA Supprimer Shapes : quelle macro est la plus rapide?

Bonjour

Merci pour vos réponses

->mutzik
N'ayant à ma disposition que des PC peu puissants (du Pentium 133Mhz a un Pentium III 500Mhz) et un maximum de 256 Mo de Ram, j'ai posté ce message
sur le forum dans l'idée que les forumeurs disposant de PC puissants/hyperpuissant puissent tester ces deux macros sans
que le PC rame.


Ma question est aussi de savoir ce qu'il faut privilégier en général dans les macros:

Les Do ..Loop, les For ...Next, les For each Next?