VBA Supprimer Shapes : quelle macro est la plus rapide?

Staple1600 · 25 Juin 2007

Bonne nuit à tous

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

Code:

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

Code:

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 · 25 Juin 2007

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 · 25 Juin 2007

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

Code:

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 · 25 Juin 2007

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?

VBA Supprimer Shapes : quelle macro est la plus rapide?

Staple1600

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

VBA Supprimer Shapes : quelle macro est la plus rapide?

Staple1600

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency