Supprimer les images par macro

[WITER]

Rebonjour
je recherche (une fois de plus, lolll ) une macro pour supprimer toutes les pictures et AutoShape qui se trouvent dans la zone B4:L30 de ma feuille.


Quelqu'un aurait il un code pour cette macro

merci encore pour votre aide

 

[XL_Luc]

Re : Supprimer les images par macro

ouh là ça parait pas simple.
Les shapes et autres pictures ne sont pas attachés à des cellules sauf erreur de ma part.

 

[WITER]

Re : Supprimer les images par macro

Donc il n'existe pas de code pour les supprimer tous d'un coup, je doit le faire manuellement ?

Jai ce code par exemple, mais mes pictures non pas toujours le meme numero (Autoshape ***, et Picture ***), donc elle plante quand elle ne les trouvent pas

Sub SUPPRIMEIMAGES()

ActiveSheet.Shapes("AutoShape 474").Select
Selection.Delete
ActiveSheet.Shapes("Picture 473").Select
Selection.Delete
ActiveSheet.Shapes("cible").Select
Selection.Delete
End Sub

 

[Cousinhub]

Re : Supprimer les images par macro

Bonjour,

avec ce code, tu supprimes toutes les images qui sont, ou chevauchent, dans la plage B4:L30

si tu ne veux que supprimer celles qui sont entièrement incluses dans la plage, remplace le Or par un And

Sub suppr()
For Each sh In Me.Shapes
    If Not Intersect(Range(sh.TopLeftCell.Address), Range("B4:L30")) Is Nothing Or _
        Not Intersect(Range(sh.BottomRightCell.Address), Range("B4:L30")) Is Nothing Then
        sh.Delete
    End If
Next sh
End Sub

Edit : j'ai mis Me, car j'ai utilisé ce code dans le code de la feuille, sinon remplace par Sheets("Feuil1")

Edit 2 : Bonsoir, Tatiak

 

[XL_Luc]

Re : Supprimer les images par macro

Bonjour,

avec ce code, tu supprimes toutes les images qui sont, ou chevauchent, dans la plage B4:L30

si tu ne veux que supprimer celles qui sont entièrement incluses dans la plage, remplace le Or par un And

Sub suppr()
For Each sh In Me.Shapes
    If Not Intersect(Range(sh.TopLeftCell.Address), Range("B4:L30")) Is Nothing Or _
        Not Intersect(Range(sh.BottomRightCell.Address), Range("B4:L30")) Is Nothing Then
        sh.Delete
    End If
Next sh
End Sub

Edit : j'ai mis Me, car j'ai utilisé ce code dans le code de la feuille, sinon remplace par Sheets("Feuil1")

Edit 2 : Bonsoir, Tatiak

Bravo, j'avais pas pensé à l'intersect avec topleftcell jolie solution.

 

[WITER]

Re : Supprimer les images par macro

merci , XL_Luc

ca marche , mais j'ai du remplacer le

For Each sh In Me.Shapes

par

for each sh in activesheet.shapes

pour que ca fonctionne

merci une fois de plus pour votre aide

 

[Cousinhub]

Re : Supprimer les images par macro

De rien....

PS, je l'avais mis dans mon Edit.....

 

[MJ13]

Re : Supprimer les images par macro

Bonjour à tous

Félicitation à BHBH pour son code très intéressant.

Sub suppr()
'BHBH
For Each sh In Activesheet.Shapes
    If Not Intersect(Range(sh.TopLeftCell.Address), Range("B4:L30")) Is Nothing Or _
        Not Intersect(Range(sh.BottomRightCell.Address), Range("B4:L30")) Is Nothing Then
        sh.Delete
    End If
Next sh
End Sub

Par contre si j'ai une zone nommée, par exemple zoneTest, Quelle code pour y faire référence?

 

[Cousinhub]

Re : Supprimer les images par macro

Bonjour, Michel

et félicitation pour ton accession au grade d'accro

remplace Range("B4:L30") par Range("zoneTest")

 

[MJ13]

Re : Supprimer les images par macro

Bonjour à tous

Merci BHBH, c'était si simple!