[VBA-A]zone de liste

**gniark** · 21/04/2006, 15h57

Bonjour à tous,
une petite question concernant les zones de liste des formulaires de VBA.
Je souhaiterais remplir la liste de mon formulaire à partir d'élément que je récupère dans une base de données; j'utilise la propriété RowSource de la liste pour insérer un à un mes éléments. Mais si jamais mes éléments sont trop nombreux j'obtiens un message d'erreur : "Erreur d'execution 2176: Le paramètre de cette propriété est trop long". Après vérification il s'est avéré que RowSource était limité à 2048 caractères. Est ce que je me trompe? Existe-t-il une autre technique pour que je puisse insérer tous mes éléments dans la liste?

Merci d'avance

Gniark

**ouskel'n'or** · 21/04/2006, 16h27

Hello,

J'ignore si ça va changer quelque chose mais tu peux affecter un tableau à une listbox
ListBox.list = Letableau

Mais faut remplir le tableau

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
21
22
 
Sub UserForm_Initialize()
Dim MyArray(5, 5), MyArray2(5, 5)
    For i = 0 To 5
        MyArray(i, 0) = i
    Next i
    'Chargez les colonnes 2 et 3 de MyArray
    MyArray(2, 0) = "Zéro"
    MyArray(2, 1) = "Un"
    MyArray(2, 2) = "Deux"
    MyArray(2, 3) = "Trois"
    MyArray(2, 4) = "Quatre"
    MyArray(2, 5) = "Cinq"
    MyArray2(1, 0) = "0"
    MyArray2(1, 1) = "1"
    MyArray2(1, 2) = "2"
    MyArray2(1, 3) = "3"
    MyArray2(1, 4) = "4"
    MyArray2(1, 5) = "5"
    'Charge les données dans les contrôles Liste2
    Liste2.List = MyArray
    ComboBox1.List() = MyArray

Bon week-end

**AlainTech** · 22/04/2006, 02h14

Envoyé par gniark

j'utilise la propriété RowSource de la liste pour insérer un à un mes éléments.

Tu peux nous montrer le code qui fait ça?

**ouskel'n'or** · 22/04/2006, 11h18

Envoyé par Tu

pour insérer un à un mes éléments

Envoyé par AlainTech

Tu peux nous montrer le code qui fait ça?

+1

Tu ne confondrais pas avec additem ?

A+

**gniark** · 24/04/2006, 09h01

Voici le code utilisé:

Code :

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

1
2
3
4
5
6
Me.MaListe.RowSource=""
For l_iI = 0 To l_iNbMaxValeurs
    Me.MaListe.RowSource = Me.ListeArticlesSBO.RowSource _
                           & l_iMaReference(l_iI) & ";" _
                           & l_sMaDescription(l_iI) & ";"
Next

Avec l_iMaReference un tableau d'entiers et l_sMaDescription un tableau de chaines de caractères. Dans mon formulaire la liste contient deux colonnes.

Pour rappel je travaille en vba et non en vb donc la propriété addItem n'existe pas pour les listes.

Merci d'avance