Afficher un message
Vieux 20/05/2003, 12h47   #5 (permalink)
sousou
Guest
 
Messages: n/a
Par défaut Re: Encore des formes libres

Un solution parmis d'autres.

1) Créer un user form avec une listbox
2) Sur l'évennement initialisation:
Remplir la liste avec les shapes
for each i in activesheet.shapes
malist.aditem i
next

3) sur l'évennement doubleclick de la liste:

activesheet.shapes(i.name).delete