Supprimer des images dans des cellules d'un classeur

Bonjour à tous,

J'apprécierais qu'on m'aide à concevoir une macro qui permettrait de supprimer toutes les images situées dans les cellules "A10", "C10", "D10", "E10" et "A26" et ce pour toutes les feuilles visibles d'un classeur.

Merci à l'avance pour votre précieuse collaboration,

Renaud D.

Bonjour Renaud,

à tester,

Sub Efface_Image()
    For Each Obj In ActiveSheet.DrawingObjects
     With Obj.TopLeftCell
       Select Case .Address(0, 0)
         Case "A10", "C10", "D10", "E10", "A26": Obj.Delete
         Case Else:
       End Select
     End With
    Next
End Sub

Bonjour,

Une proposition.

Cdlt.

Public Sub DeletePictures()
Dim x, shp As Shape, address As String, i As Long
    x = Split("A10 C10 D10 E10 A26")
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            address = shp.TopLeftCell.address(0, 0)
            For i = LBound(x) To UBound(x)
                If address = x(i) Then shp.Delete: Exit For
            Next i
        End If
    Next shp
End Sub

Nota : pas vu ta réponse, i20100 !...

Bonsoir,

Merci à vous deux pour vos réponses.

Je crois que je me suis mal exprimé. J'en suis désolé.

Je désire supprimer toutes les images situées dans les cellules "A10", "C10", "D10", "E10" et "A26" et ce pour toutes les feuilles visibles (non cachées) d'un classeur. L'opération doit s'effectuer en même temps sur l'ensemble des feuilles visibles du classeur et non sur une seule à la fois (feuille active).

Merci à l'avance pour votre précieuse collaboration,

Renaud D.

re,

à tester,

Sub Efface_Images()
For Each f In Worksheets
  If f.Visible Then
    For Each Obj In f.DrawingObjects
     With Obj.TopLeftCell
       Select Case .Address(0, 0)
         Case "A10", "C10", "D10", "E10", "A26": Obj.Delete
       End Select
     End With
    Next Obj
  End If
Next f
End Sub

Bonsoir i20100,

Merci beaucoup votre dernière réponse, votre code fonctionne parfaitement.

C'est si simple quand on sait comment faire.

Sincères salutations,

Renaud D.

Merci Renaud pour ce retour, au plaisir!