utiliser le type d'un OLEObject ? (Transtypage)

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?:cry:
Code:

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

Bonjour,

Une fois ta listbox "list1" créée, pour par exemple introduire les valeurs de la plage A1 à A10, tu peux l'utiliser comme ceci

Code:

ActiveSheet.list1.ListFillRange = "A1:A10"

C'était ça ta question ?

PS : je ne sais pas si tu as remarqué mais tes 2 listbox se créent l'une sur l'autre

bonjour fring,

merci pour ton aide mais j'ai du mal m'exprimer.
En effet, je voudrais faire en sorte d'utiliser les fonctions de la listbox
comme "listindex" ou "listcount".
Pour l'instant cela bugge car le compilateur voit ca comme des OLEObjects.
Tu sais comment faire stp?

PS: oui en effet j'avais vu qu'elles se superposent mais c'est juste que je ne me suis pas encore occupé de la partie affichage :cry: lol

Je n'utilise quasiment jamais un contrôle directement sur la feuille, je ne connais pas toutes les propriétés possibles. Je n'ai pas l'impression que la propriété Listindex existe pour une listbox directement insérée sur la feuille.

Quelques exemples :

Compter le nombre de lignes

Code:

MsgBox ActiveSheet.List1.ListCount

Récupérer le contenu de toute la listbox
Code:

1 2 3 4 5 6 7 Dim i As Integer With ActiveSheet For i = 0 To .List1.ListCount - 1 .Cells(i + 1, 2) = .List1.list(i) Next i End With
Récupérer le contenu de la ligne 4

Code:

MsgBox ActiveSheet.List1.List(3)

Récupérer le contenu de la ligne sélectionnée

Code:

MsgBox ActiveSheet.List1.Text

Merci pour l'info sur listindex pour la création.
Cpdt je refais un exemple peut etre plus clair de mon probleme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 For i = 1 To nbOF Dim ole As OLEObject Dim list As ListBox Set ole = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=348, Top:=337, _ Width:=94, Height:=345) Set list = ole.Object Next i
Je voudrais récupérer le type listbox de la variable car autant pour tes exemples que pour "Set list = ole.Object", j'obtiens une erreur d,incompatibilité de type.

:yaisse2:
J'ai trouvé!!
Merci Fring pour ton aide qund meme!!!!!

En fait il faut faire un Set avec une variable définit avec MsForm, allez voir ci-dessou :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 For i = 1 To 2 Dim ole As OLEObject Dim list As MSForms.ListBox Set ole = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=348, Top:=337, _ Width:=94, Height:=345) Set list = ole.Object list.Name = "list" & i Next i
Cela permet donc d'effectuer le transtypage OLEObject ==> ListBox
Et je suppose que cela devrait marcher pour tout type:king:

Je ne comprend pas pourquoi l'utilisation de la variable list ?

Code:

1
2
3
4
5
6
7
8
9
10
11
For i = 1 To 2
        Dim ole As OLEObject
        Dim list As MSForms.ListBox
 
        Set ole = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
                    DisplayAsIcon:=False, Left:=348, Top:=337, _
                    Width:=94, Height:=345)
 
        ole.Name = "list" & i
 
    Next i

en fait j'avais besoin d,accéder aux parametres des listbox afin de les creer selon mes criteres, exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
For i = 1 To nbOF
        Dim list As MSForms.ListBox
 
        Set ole = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
                    DisplayAsIcon:=False, Left:=348, Top:=337, _
                    Width:=61, Height:=200)
 
 
        Set list = ole.Object
        With list
            .
            .BorderStyle = fmBorderStyleSingle
            .ColumnCount = 2
            .ColumnHeads = True
            .ColumnWidths = 30
            .SpecialEffect = fmSpecialEffectSunken
            .Name = "list" & i
        End With
 
    Next i