XL 2016 VBA - Comment intercepter un évènement sur un Control Active X créé dynamiquement

[Dudu2]

Bonjour,

Je créé dynamiquement une ComboBox (code ci-dessous)
Je voudrais intercepter un ComboBox_Click().

Faut que je créé un classe ?

Sub a()
    Dim OLEObj As OLEObject
    Dim ComboBox As msforms.ComboBox
   
    Set OLEObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
                                            DisplayAsIcon:=False, Left:=700, Top:=100, Width:=328, Height:=16)
    Set ComboBox = ActiveSheet.ComboBox1
End Sub

 

[Dudu2]

Il faut peut-être passer par les Shapes dont le nom correspond au Label.Name

 

[Dudu2]

Set Shape = Activesheet.Shapes(<nom donné à la création>)
Shape.OLEFormat.Object.Object.Caption = "caption du label"

C'est pas simple quand même. OLEFormat.Object.Object !

 

[patricktoulon]

Bonjour
Attention @Dudu2 sur certaines version d'excel avec VBA 7 avec certaines mise a jour l'interception n'est plus possible pour les activX (oleobject.object) dans les feuilles
c'est le cas par exemple chez moi sur 2013 32 vba 7
et surtout les versions click&run

 

[Dudu2]

Bonjour @patricktoulon ,
Ok merci. Bon à savoir.