Discussion :

[bernard38]

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 :

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

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 ?

[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

[SilkyRoad]

bonjour

tu peux tester cette adaptation

Code :

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

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

[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 ?

[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.

[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é.

[bernard38]

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 ?

[ouskel'n'or]

N'attends pas de réponse de ma part, je n'en ai acune idée
heureusement, "chuis pas tuseul !"

[SilkyRoad]

rebonsoir

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 :

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

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

[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)

[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.

[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.