Comment supprimer les boutons (SHAPES) sur une feuille exel

Comment supprimer les boutons (SHAPES) sur une feuille exel - VB/VBA/VBS - Programmation

Marsh Posté le 23-06-2005 à 08:48:02    

   Salut !!
JE voudrais savoir comment on peut supprimer tous les boutons (shapes) dans une feuille exel
genre:
 
ActiveSheet.shapes.select
Selection.delete
 
@+ sur le net

Reply

Marsh Posté le 23-06-2005 à 08:48:02   

Reply

Marsh Posté le 23-06-2005 à 18:31:28    

dim xlwks as excel.worksheet
dim i, iCompt as integer
 
set xlwks = activesheet
iCompt = 0
for i = 1 to xlwks.shapes.count
    xlwks.shapes(i - iCompt).delete
    iCompt = iCompt + 1
next i
 
 

Reply

Marsh Posté le 23-06-2005 à 18:53:08    

Euh, c'est pas plus simple comme ça?

Dim vSh As Variant
For Each vSh in Activesheet.Shapes
  vSh.Delete
Next vSh


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 24-06-2005 à 08:06:29    

Merci bcp @+ Sur le net

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed