Comment supprimer les objets d'une sélection

[MJ13]

Bonjour à tous.

Je cherche le moyen de supprimer en VBA les objets (dessin, images ...) présents dans une ou une sélection de cellules.
Cela me paraît compliqué.
Voir le fichier joint .
D'avance merci.

 

[Creepy]

Re : Comment supprimer les objets d'une sélection

Bonjour le monde, MJ13,

Meuhh non pas compliqué !! 😀

Ci-joint un code qui fait cela tres bien et commenté en plus !

@+

Creepy

 

[sousou]

Re : Comment supprimer les objets d'une sélection

Bonjour

Voilà ce que je te propose.
En fonction de la taille de la sélection.
j'efface toutes les images(shapes) diont le centre est situé dans cette fenêtre

Sub efface()
x = Selection.Left
y = Selection.Top
xr = x + Selection.Width
yr = y + Selection.Height

'MsgBox x & "/" & xr & Chr$(13) & y & "/" & yr

Set images = ActiveSheet.Shapes
'MsgBox images.Count
For Each i In images
centreix = i.Left + (i.Width / 2)
centreiy = i.Top + (i.Height / 2)
If centreix > x And centreix < xr And centreiy > y And centreiy < yr Then
'MsgBox i.Name
i.Delete
End If
Next
End Sub

 

[MJ13]

Re : Comment supprimer les objets d'une sélection

Bonjour et merci à vous deux.

Vous êtes des chefs VBA avec des macros très intéressantes.

J'ai un peu modifié la macro de sousou pour pouvoir supprimer des sélections multiples (voir fichier).