supprimer bouton

skoobi

XLDnaute Barbatruc

• 15 Septembre 2009

• #2

Re : supprimer bouton

Re chinel 😉,

modifie la condition comme ceci:

Code:

If TypeOf Obj.Object Is MSForms.CommandButton [COLOR=Red][B]And Obj.Name <> [/B][B]"CommandButton2"[/B][/COLOR] Then Obj.Delete

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 15 Septembre 2009

• #3

Re : supprimer bouton

désolé skoobi mais cela ne fonctionne pas, merci quand même !

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 15 Septembre 2009

• #4

Re : supprimer bouton

Re,

pourrais-tu envoyer le fichier stp?

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 15 Septembre 2009

• #5

Re : supprimer bouton

désolé mais mon fichier fait 1.73Mo !

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 15 Septembre 2009

• #6

Re : supprimer bouton

Réduit le au maximum en ne laissant que ce qui nous intéresse, les boutons et autres objets, ça devrait passer comme ça non?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Septembre 2009

• #7

Re : supprimer bouton

Bonsoir chinel, salut skoobi 🙂

chinel, après la boucle For, vous avez mis cette instruction :

ActiveSheet.DrawingObjects.Delete

Elle supprime tous les objets existant, y compris le bouton "CommandButton2" qu'on veut garder...

A+

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 15 Septembre 2009

• #8

Re : supprimer bouton

Re,

salut job75, arfff, bien vue, je vais changer de lunette 😀😀

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 16 Septembre 2009

• #9

Re : supprimer bouton

je recite:
il fonctionne très bien mais j'aurais bien voulu svp, garder un bouton celui qui imprime le planning, est-il possible de faire ça ?
le nom du bouton est "CommandButton2" pour imprimer mais supprimer les autres
Merci de votre aide !

bonjour, je voudrais svp garder le commandbutton2 et supprimer les autres !
pas supprimer le commandbutton2 !!!
Merci !

 

Dernière édition: 16 Septembre 2009

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 16 Septembre 2009

• #10

Re : supprimer bouton

Bonjour Chinel,
Tu as la réponse de Job75 te disant ou est le souci !!!!
si tu lis pas tes réponses tu n'y arriveras pas
Vas lire le message 7 et tu sauras ou est le problème il faut supprimer dans la macro ActiveSheet.DrawingObjects.Delete
bonne journée
Papou


EDIT: Bonjour Job et bonne journée

 

Dernière édition: 16 Septembre 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Septembre 2009

• #11

Re : supprimer bouton

Bonjour le fil, le forum,

Je répète... Le problème vient de cette instruction, qu'il faut donc supprimer :

ActiveSheet.DrawingObjects.Delete

Quant à la boucle For, écrire simplement :

Code:

For Each Obj In ActiveSheet.OLEObjects
If Obj.Name <> "CommandButton2" Then Obj.Delete
Next

ou aussi :

Code:

For Each Obj In ActiveSheet.DrawingObjects
If Obj.Name <> "CommandButton2" Then Obj.Delete
Next

Edit : salut Papou 🙂 levé tôt aussi

A+

 

Vote positif 0 Vote négatif