Excel Downloads Forums - Afficher un message

20/05/2003, 10h52

for each sh in activesheet.shapes
if sh.name<>"toto" then sh.delete
next sh

for i=2 to activesheet.shapes.count
activesheet.shapes(i).delete
next i

20/05/2003, 10h52	#2 (permalink)
jon Guest Messages: n/a	Re: Encore des formes libres for each sh in activesheet.shapes if sh.name<>"toto" then sh.delete next sh for i=2 to activesheet.shapes.count activesheet.shapes(i).delete next i