VBA supprimer objets sur une cellule

[MJ13]

Bonjour à tous

J'aimerai en VBA trouver un code pour supprimer des objets (par exemple des rectangles) dans une cellule (exemple en A1).

Merci d'avance pour votre aide.

 

[Pierrot93]

Re : VBA supprimer objets sur une cellule

Bonjour Michel,

peut être comme ceci, si j'ai bien compris :

Dim s As Shape
For Each s In Feuil1.Shapes
    If Not Intersect(Range("A1"), s.TopLeftCell) Is Nothing Then s.Delete
Next s

bonne journée
@+

 

[Cousinhub]

Re : VBA supprimer objets sur une cellule

Bonsoir,

essaie avec ce code :

Dim Dwo As Object
For Each Dwo In ActiveSheet.DrawingObjects
    If TypeOf Dwo Is Rectangle And Dwo.TopLeftCell.Row = 1 And Dwo.TopLeftCell.Column = 1 Then
        Dwo.Delete
    End If
Next Dwo

Bonne soirée

Nota, TypeOf Oval, pour un cercle, TextBox, pour une zone de texte

Edit : Bonsoir, Pierrot

 

[MJ13]

Re : VBA supprimer objets sur une cellule

Bonjour Pierrot, Bhbh

Merci beaucoup pour vos codes.

C'est tout a fait ce que je voulais.

C'est vrai que maintenant avec le nombre de posts sur XLD, c'est le genre de codes difficile à trouver.

Du coups j'ai fait un petit fichier avec vos codes.

Cela devrait me servir pour la version 3b🙂.

Bonne soirée ou journée ou nuit (avec le décalage horaire, je ne sais pas).