probleme avec Shapes

**blanka6** · 20/03/2007, 15h27

Bonjour,

J'ai inseré des images dans une feuille excel:304 images.Maintenant je veux les supprimer tous.J'utilise le code ci dessous pour faire ce que je viens de dire mais le prog s'arrete et me dit memoire insuffisante quand il arrive sur l'instruction:ActiveSheet.Shapes.SelectAll

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.Pictures.Insert(Cells(i, j).Value).Select
ActiveSheet.Shapes.SelectAll
Selection.Delete

Comment faire pour supprimer des objets en cache? Merci

**cwain** · 20/03/2007, 15h49

Bonjour,
bon perso j'arrive à 19575 sans avoir de bug

mais bon sinon, il faut te résoudre à faire une boucle du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(i).Delete
Next

à voir...

**cwain** · 20/03/2007, 15h58

Bon je me marre, je me marre, mais en attedant ce que je t'ai proposé ne marche pas sur mon PC du coup je te redonne une autre solution un peu plus radicale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub EnCasDePlantage()
'ça permet de relancer Macro1 quand elle buggue, jusqu'à ce que tu n'aies plus de shapes
While ActiveSheet.Shapes.Count > 0
    Call Macro1
Wend
End Sub
Sub Macro1()
On Error Resume Next
For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(i).Delete
Next
End Sub

Cwain

**blanka6** · 20/03/2007, 16h31

Envoyé par cwain

Bon je me marre, je me marre, mais en attedant ce que je t'ai proposé ne marche pas sur mon PC du coup je te redonne une autre solution un peu plus radicale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub EnCasDePlantage()
'ça permet de relancer Macro1 quand elle buggue, jusqu'à ce que tu n'aies plus de shapes
While ActiveSheet.Shapes.Count > 0
    Call Macro1
Wend
End Sub
Sub Macro1()
On Error Resume Next
For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(i).Delete
Next
End Sub

Cwain