Discussion :

[xbb12]

Bonjour à tous,

j'ai une boucle qui me permet de supprimer toutes les images d'une feuille :

Code :

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

1
2
3
4
 
For Each img In ActiveSheet.Shapes
    img.Delete
Next

Je souhaite supprimer seulement la ou les images présentes dans une plage de cellule, j'ai imaginé un truc du genre :

Code :

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

1
2
3
4
range(maplage).select
For Each img In Selection.Shapes 'ou Selection
    img.Delete
Next

Evidemment cela ne fonction pas, pas si simple !

Je vous remercie par avance de votre aide précieuse.
Bonne journée.

[Gorfael]

Salut xbb12 et le forum

Code :

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

1
2
3
4
5
6
Sub test()
Dim Img As Shape
For Each Img In ActiveSheet.Shapes
    If Not (Intersect(Img.TopLeftCell, Range("H3:K25")) Is Nothing) Then Img.Delete
Next
End Sub

Supprime les images dont le coin haut/gauche se trouve dans la zone H3:K25.
Avec Excel il faut toujours regarder un problème de plusieurs côtés
A+

[xbb12]

Bon sang mais c est bien sûr !

Un grand MERCI Gorfael !
Bonne journée.