probleme avec Shapes

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:

---

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

Bonjour,
bon perso j'arrive à 19575 sans avoir de bug :mouarf3:
mais bon sinon, il faut te résoudre à faire une boucle du style

Code:

---

1 2 3

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

---

à voir...

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:

---

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

ça ne dépend pas la taille d'images maybe?

Et aussi la version de Excel?
Excel 2002 est restreint pou 128 Mb
mais, Excel 2003 dispose 1 Gb

Citation:

---

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:

---

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

---

:yaisse2: :yaisse2: :yaisse2: Merci merci ca march tu es mon sauveur men.A plus