Discussion :

[radagast35]

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[radagast35]

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 lol

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveSheet.List1.ListCount

Récupérer le contenu de toute la listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveSheet.List1.List(3)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveSheet.List1.Text

[radagast35]

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

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 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.

[radagast35]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[radagast35]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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