VBA-E suppression d'images

Version imprimable

20/10/2006, 11h41
bernard38

VBA-E suppression d'images
Bjr,

Je n'arrive pas à supprimer des images à l'intérieur d'une plage donnée.
J'ai essayé d'adapter le code suivant:
Code:

1 2 3 4 5 6 7 8 Dim Obj As Shape Set PlageDonnees = Range("E1:E" & Range("E65536").End(xlUp).Row) For Each Obj In ActiveSheet.Shape Obj.Delete Next Obj End Sub
mais si je remplace activesheet par plagedonnees il me sort une erreur.
Est-ce faisable ?
20/10/2006, 12h00
ouskel'n'or

Je suppose que tes images ne sont pas dans des cellules.. Alors j'ai bien peur que tu sois obligé de repérer la position X et Y de ta plage afin de vérifier que les position X et Y de tes images soient incluses :(

bonjour

tu peux tester cette adaptation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Obj As Shape
Dim Plage As Range, PlageDonnees As Range
 
'plage de cellules cible
Set PlageDonnees = Range("E1:E100")
 
For Each Obj In ActiveSheet.Shapes
    'Position du Shape dans la feuille
    Set Plage = Range(Obj.TopLeftCell.Address & ":" & _
            Obj.BottomRightCell.Address)
 
    'Verifie si le shape est dans la plage de cellules cible
    If Not Intersect(Plage, PlageDonnees) Is Nothing Then _
        Obj.Delete
 
Next Obj

michel

20/10/2006, 13h39
bernard38

Bjr silky,

Je te remercie j'ai testé ça fonctionne.
Mais pourquoi la première adresse retournée est $A$1 ?
C'est parce qu'il trouve le premier objet sur la ligne 1 ?
20/10/2006, 14h02
bernard38

Quetion:

Est-ce qu'une case à cocher est considérée comme une shape ?
Il m'a bien supprimé toutes les images mais dessous il m'a laissé des casas à cocher.
20/10/2006, 14h19
ouskel'n'or

Les cases à cocher prises dans la barre d'outils commande sont des OLEObjects. Regarde l'aide à ce nom, c'est assez bien expliqué. ;)
20/10/2006, 14h53
bernard38

1 pièce(s) jointe(s)

Elles nont pas été prises dans la barre d'outils,mais copiées dans un format html cf fichier joint.
La méthode pour les supprimer est la même que les shape ?
20/10/2006, 18h20
ouskel'n'or

N'attends pas de réponse de ma part, je n'en ai acune idée :(
heureusement, "chuis pas tuseul !" ;)
20/10/2006, 18h47
SilkyRoad

rebonsoir

Citation:

La méthode pour les supprimer est la même que les shape ?

oui

dans ta question initiale les shapes à supprimer étaient dans la colonne E

Code:

Set PlageDonnees = Range("E1:E" & Range("E65536").End(xlUp).Row)

...alors que les cases à cocher sont dans la colonne A.

Il te suffit d'adapter la plage cible dans ta procédure...

michel
23/10/2006, 07h48
bernard38

Bjr,
Le problème est qu'elles ne sont pas actives.
Quand on fait in clic dessus rien ne se passe.
Faut-il les activer et les sélectionner avant de les supprimer ?
Pour Silky : elles se retrouvent dans la colonne où il y a mes données après
mise en page.(suppression de certaines colonnes)
23/10/2006, 08h42
bernard38

Précisions:
J'ai fait l'essai avec le code modifié (colonne a au lieu de colonne e).
Il supprime la case à cocher de la cellule A1 mais pas les autres.
23/10/2006, 09h37
bernard38

J'ai compris le blèm:

Je testais mon nombre de lignes pareil que pour la colonne E mais comme
dans la colonne A il n'y a pas de données hormis les cases à cocher
le row restait à 1.
Merci à tout les deux.