supprimer bouton

[chinel]

Salut tout le monde !

je voudrais bien savoir si c'est possible de supprimer certains boutons lors d'une copie d'une feuille voici mon code:

Sub sauvegardeplanningencours()
Sheets("cal").Select
Sheets("cal").Unprotect
Sheets("cal").Copy
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
ActiveSheet.DrawingObjects.Delete
Application.Dialogs(xlDialogSaveAs).Show Range("A1").Value & Range("B1").Value & Range("C1").Value & Range("D1") & ".xls"
ActiveWorkbook.Close savechanges:=False
Sheets("cal").Protect
End Sub

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 !

 

[skoobi]

Re : supprimer bouton

Re chinel 😉,

modifie la condition comme ceci:

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

 

[chinel]

Re : supprimer bouton

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

 

[skoobi]

Re : supprimer bouton

Re,

pourrais-tu envoyer le fichier stp?

 

[chinel]

Re : supprimer bouton

désolé mais mon fichier fait 1.73Mo !

 

[skoobi]

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?

 

[job75]

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+

 

[skoobi]

Re : supprimer bouton

Re,

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

 

[chinel]

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 !

 

[Paritec]

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

 

[job75]

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 :

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

ou aussi :

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

Edit : salut Papou 🙂 levé tôt aussi

A+