Effacer un objet dessin

bonjour JM

je ne sais pas si cela pourra t'aider mais lors de la creation du dessin , tu pourrais le nommer , comme dans l'exemple ci-dessous , pour le supprimer plus facilement ensuite


Sub CreerUnRectangle()
With Sheets(1).Shapes.AddShape(msoShapeRectangle, 100, 50, 50, 100)
.Name = "ForumXLD" ' changer le nom du shape
End With
End Sub

Sub SupprimerRectangle()
Sheets(1).Shapes("ForumXLD").Delete
End Sub


bonne fin d'apres midi
michel

Je vais essayer
Merci Michel
Bonne fin de journée aussi