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

Dranreb

XLDnaute Barbatruc

• 8 Octobre 2024

• #2

Bonsoir.
En tout cas il faut que la ComboBox soit globale et WithEvents dans le module objet qui prend en charge l'évènement. Un module de classe serait utile s'il y en a plusieurs.
Si leurs listes doivent être construite automatiquement d'après différentes colonnes d'un même tableau je vous conseille d'utiliser ma classe ComboBoxLiées, elle s'occupe aussi de toute la gestion des choix, et renvoie à son détenteur le ou les numéros de lignes concernés via des évènements.

 

Dernière édition: 8 Octobre 2024

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #3

Merci @Dranreb.
J'ai finalement fait une petite classe.

Module1

VB:

Private ComboBoxEvents As Classe_ComboBoxEvents

Sub a()
    Dim OLEObj As OLEObject
    Dim ComboBox As MSForms.ComboBox
  
    'Create ActiveX 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
  
    Set ComboBoxEvents = New Classe_ComboBoxEvents
    Set ComboBoxEvents.ComboBox = ComboBox
End Sub

Classe_ComboBoxEvents

VB:

Public WithEvents ComboBox As MSForms.ComboBox
Private Sub ComboBox_click()
    Call MultiColumnComboBox_Click(ComboBox)
End Sub

 

Dernière édition: 8 Octobre 2024

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #4

Ce que je ne sais pas faire avec ces Active X tordus (entre les Shape, les Object, les OLEObject), c'est assigner la ComboBox créé.
Je fais:
Set ComboBox = ActiveSheet.ComboBox1
Mais c'est juste pas bon car je présuppose ComboBox1

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Octobre 2024

• #5

Il faut trouver dans les propriétés de l'OLEObject l'objet MSForms dont il est le support.
Sa propriété Object est un bon candidat, je pense.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #6

Ok, alors j'ai fait
Set ComboBox = OLEObj.Object
et c'est bon.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #7

Par contre, je n'arrive plus à en retrouver le .Parent.
Propriété ou Méthode non gérée par cet objet.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #8

Parce que je n'ai pas affecté l'OLEObj.Object dans une vrai ComboBox (ou ListBox).
Je suis passé par une variable Object qui fonctionnait avant mais qui foire le truc maintenant.
Je pense que dans l'assignation Set ComboBox = OLEObj.Object il se passe des trucs !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #9

Il faut bien passer d'abord par le vrai Control:
Set ListBox = OLEObj.Object
Set ComboBox = OLEObj.Object

Avant de pouvoir généraliser avec un Variant ControlBox:
Set ControlBox = ListBox
Set ControlBox = ComboBox

Et là le ControlBox.Parent passe bien.

En affectation directe ça ne passe pas:
Set ControlBox = OLEObj.Object
Il n'a pas toutes les billes et le ControlBox.Parent plante

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #10

Et maintenant je rame sur autre chose.
Je créé une Label ActiveX

VB:

Dim Label As Variant

Set Label = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, DisplayAsIcon:=False, _
                                       Left:=0, Top:=0, Width:=0, Height:=0)

ll faut que je lui donne un nom et que je le retrouve ultérieurement pour en valoriser le .Caption

En UserForm c'est simple mais en Active X...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2024

• #11

Bonsoir

@Dudu2
Comme ceci ?

VB:

Sub test()
Dim Label As OLEObject

Set Label = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, DisplayAsIcon:=False, _
                                       Left:=0, Top:=0, Width:=0, Height:=0)
Label.Name = "toto"
End Sub

ou comme cela

Code:

Sub testB()
With ActiveSheet.OLEObjects.Add("Forms.Label.1", , , 0, 0, 0, 0)
.Name = "toto"
End With
End Sub

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #12

@Staple1600,
Non ça ne marche pas parce que .Name n'est pas une propriété d'un OLEObject.
Je pense qu'il faut passer par des Shapes.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2024

• #13

Re

@Dudu2
Ca marche sur mon PC, sinon je ne n'aurais pas posté ces deux bouts de macros, non ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2024

• #14

Re

@Dudu2
Et celle -ci aussi fonctionne pour le Caption

Code:

Sub testC()
With ActiveSheet.OLEObjects.Add("Forms.Label.1", , , 0, 0, 0, 0)
.Name = "toto"
.Object.Caption = "titi"
End With
End Sub

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Octobre 2024

• #15

Ok, oui en effet, ça marche. Je croyais l'avoir essayé en vain.

Alors, pour la Caption, il faut d'abord que je retrouve le Label.
Ce n'est pas au moment de la création.

 

Vote positif 0 Vote négatif