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]

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.