XL 2013 Supprimer les objets de certaines cellules

fred2705 · 28 Novembre 2016

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 !

Code:

Dim img As Object

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

Merci pour votre aide

Theze · 28 Novembre 2016

Bonjour,

Une piste :

Code:

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

XL 2013 Supprimer les objets de certaines cellules

fred2705

XLDnaute Junior

Theze

XLDnaute Occasionnel

Discussions similaires

XL 2013 Supprimer les objets de certaines cellules

fred2705

XLDnaute Junior

Theze

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency