Effacer un objet dessin

[JM]

Bonjour à tous,
Après avoir créé une macro qui réalise un dessin sur ma feuille de calcul (une aide en fait), je voudrais en créer une autre qui l'efface. Pb: l'objet dessin a un nom qui évolue à chaque création, la macro d'effaçage ne le trouve plus dans la feuille et j'ai un message d'erreur.
QQ aurait-il une solution ?
Merci d'avance
JM

 

[michel]

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

 

[JM]

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