XL 2013 Supprimer les objets de certaines cellules

[fred2705]

Bonjour,

J’aimerais supprimer tous les objets qui figurent de la colonne DA à XEV

J’’ai essayé avec le code ci-dessous, mais sans succès !

Dim img As Object

For Each img In activesheete.Range("DA:XEV") 
img.Delete
Next

Merci pour votre aide

 

[Theze]

Bonjour,

Une piste :

Sub Test()

    Dim img As Shape
   
    For Each img In ActiveSheet.Shapes
   
        If Not Intersect(img.TopLeftCell, Range("DA:XEV")) Is Nothing Then img.Delete
   
    Next

End Sub