[VBA-E]Erreur sur suppression d'images dans excel

**bernard38** · 14/04/2006, 14h24

Code :

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

1
2
3
 
  ActiveSheet.Shapes().SelectAll
    Selection.Delete

Pourquoi ce code plante au dela d'un certain nombre de lignes dans un fichier excel ?
(Erreur automation)

**AlainTech** · 14/04/2006, 14h40

Je te conseille une boucle For Each sur ta collection Shapes.

**bernard38** · 14/04/2006, 15h29

Code :

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

1
2
3
4
5
6
7
 
    Dim compteur As Integer
    nbr_lignes = ActiveSheet.UsedRange.Rows.Count
      For compteur = nbr_lignes To 1 Step -1
      ActiveSheet.Shapes().Select
      Selection.Delete
    Next compteur

Erreur d'execution '-2147319765 (8002802b)':

erreur automation
element introuvable

C'est pas mieux !

Pas mieux !

**bidou** · 14/04/2006, 15h39

Code :

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

1
2
3
4
Dim sr As ShapeRange
ActiveSheet.Shapes.SelectAll
Set sr = Selection.ShapeRange
sr.Delete

**AlainTech** · 14/04/2006, 15h47

Envoyé par bernard38

Code :

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

1
2
3
4
5
6
7
 
    Dim compteur As Integer
    nbr_lignes = ActiveSheet.UsedRange.Rows.Count
      For compteur = nbr_lignes To 1 Step -1
      ActiveSheet.Shapes().Select
      Selection.Delete
    Next compteur

Ce n'est pas du tout une boucle For Each dans une collection, ça!

Enfin, si la solution de bidou fonctionne, utilise-la. Elle est nettement plus simple.

**bernard38** · 14/04/2006, 15h57

Il plante quand même a la ligne

Code :

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

1
2
 
ActiveSheet.Shapes.SelectAll

Ca marche bien au dessous d mille lignes.
Là j'ai 1533 lignes et 7 col.
Et ça plante !

**Megaxel** · 14/04/2006, 16h07

Mais si le but est de supprimer le contenu d'un onglet dans Excel, pourquoi ne fais-tu pas tout simplement

Code :

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

ActiveSheet.Cells.Clear

Heum... Je viens de lire le titre du post... Désolé...

**bernard38** · 14/04/2006, 16h16

Le but est de supprimer de petites images (genre petites enveloppes) après un copier coller de pages html dans ma feuilles

**ouskel'n'or** · 14/04/2006, 18h47

Et si tu fais deux passages avec gestion d'erreur sur le premier ?
Juste pour essyer de comprendre

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim sr As ShapeRange 
Dim ok as boolean
Do while not ok
     ActiveSheet.Shapes.SelectAll 
     Set sr = Selection.ShapeRange 
     sr.Delete
     ok = err = 0
     err.clear
     Set sr = Nothing
loop

Tu dis

A+

NB - Possible que ça plante le system

**SilkyRoad** · 14/04/2006, 18h51

bonsoir

tu peux tester

Code :

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

1
2
3
4
Dim Obj As Shape 
For Each Obj In ActiveSheet.Shapes 
Obj.Delete 
Next Obj

bonne soiree
michel

**bernard38** · 18/04/2006, 08h36

Bonjour à tous,

Ma réponse est valable pour toutes les solutions proposées:
Je plante toujours au dela d'un certain nombre de lignes avec toujours le même message.
Je suis en train d'affiner pour voir exactement le nombre de lignes acceptées (entre 500 et 800)

**bernard38** · 18/04/2006, 13h55

Bon,apparemment il ne s'agit pas d'une erreur sur la fonction shape.
J'ai essayé ça:

Code :

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

1
2
3
4
5
6
7
8
 
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets.Add
Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil1").Select

Il me fait la même erreur à l'execution de la dernière ligne.
On dirait qu'il ne connaît plus ma feuille1 ??

[VBA-E]Erreur sur suppression d'images dans excel

Macros et VBA Excel

Discussions similaires

Partager

Partager