[XL-2007] supprimer bouton de commande et l'evenement associé [Résolu]

[casefayere]

Bonjour à tous,
Il y a longtemps que j'ai délaissé le VBA mais je me retrouve devant un problème contenu dans le titre : comment peut-on supprimer un bouton de commande (ça je sais faire) mais supprimer l'éevénement associé en même temps, tout simplement un evenement "click"

j'espère être clair et vous remercie par avance de vos conseil

Bonne journée

[casefayere]

J'ai trouvé ma reponse, pour ceux que ça interesse, la voici :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Exemple()
    Dim Obj As OLEObject
'je supprime tous les boutons    
For Each Obj In Worksheets("references").OLEObjects
    If TypeOf Obj.Object Is MSForms.CommandButton Then
        Obj.Delete
    End If
Next Obj
'et les codes    
    With ActiveWorkbook.VBProject.VBComponents(Sheets("references").CodeName).CodeModule
      .DeleteLines 1, .CountOfLines
    End With
 
End Sub

Bonne journée