Supprimer un type de contrôle

[Huahailu]

Bonjour le forum,

J'ai quelques soucis avec mon petit projet:

Je copie des feuilles d'un classeur vers un autre classeur.
Les feuilles que je copie ont différents contrôles (Command button, textbox, checkbox,...)
J'aimerai ne pas avoir de "Commandbutton" sur les copies et uniquement ceux là.

Je sais comment supprimer tous les objets de mes copies:

Private Sub CommandButton1_Click()
Dim Obj As Object

ThisWorkbook.Sheets.Copy

For Each Obj In ActiveSheet.DrawingObjects
Obj.Delete
Next Obj

End Sub

J'arrive à supprimer le ou les contrôles bien précis:

Private Sub CommandButton1_Click()

ThisWorkbook.Sheets.Copy

ActiveSheet.Shapes("Commandbutton2").Delete

End Sub

Mais ce que j'aimerai, c'est de pouvoir ne supprimer que les contrôles de type "CommandButton" quelquesoient leur nom

Vous remerciant par avance
Bonne journée à tous et @+

Pascal

 

[Zon]

Salut,

En passant par la collection oleobjects :

dim Ctrl as oleobject
for each ctrl in Tafeuille.oleobjects
if ctrl.progid= "Forms.CommandButton.1" then ctrl.delete
next ctrl

A+++

 

[Huahailu]

Bonsoir Zon et le forum,

Fantastique! cela fonctionne parfaitement.

Je te remercie beaucoup pour ton aide Zon.

Cordialement
@+
Pascal