Salut,

je crée dynamiquement une listbox. J'utilise donc un OLEObject.
Le probleme c'est que je ne peux plus avoir accés aux fonctions de la listbox;
il ne s'affiche que les fonctions d'un OLEObject.
Pourtant qd j'utilise typename(list.object) ca retourne bien "ListBox"!!!
Comment je dois faire?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
For i = 1 To 2
        Dim list As OLEObject
 
        Set list = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
                    DisplayAsIcon:=False, Left:=348, Top:=337, _
                    Width:=94, Height:=345)
 
        MsgBox TypeName(list.Object)
 
        list.Name = "list" & i
 
    Next i