suprimer toute les images d'une feuille

[wrap food]

Bonjour


je souhaiterais pouvoir supprimer, via une macro VBA, certaines "images" qui sont dans une feuille donnée..( cellule b5:c5)
je mets un exemple en PJ

Auriez vous la solution .

par avance merci

 

[Chris401]

Re : suprimer toute les images d'une feuille

Bonsoir

Une macro n'est peut-être pas nécessaire.

Tu cliques sur F5 (Atteindre)
Tu cliques sur "cellules" (en bas à gauche)
Tu coches "Objets" ==> OK

Tous tes objets de la feuille sont sélectionnés.
Tu maintient la touche Ctrl appuyée et tu sélectionnes les objet que tu ne veux pas supprimer.
Tu appuies sur Suppr

Cordialement
Chris

 

[Regueiro]

Re : suprimer toute les images d'une feuille

Bonsoir

Sub EffaceMentShapeChamp()
   For Each s In ActiveSheet.Shapes
     If Not Intersect(s.TopLeftCell, Range("$B$5:$D$5")) Is Nothing Then
        s.Delete
     End If
   Next s
 End Sub

A+