Discussion :

[gniark]

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]

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]

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]

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

Tu peux nous montrer le code qui fait ça?

+1

Tu ne confondrais pas avec additem ?

A+

[gniark]

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

[AlainTech]

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

Tiens, c'est nouveau, ça???

[gniark]

Je travaille sous VBA 2000 et pour les zones de liste je n'ai pas accès à la méthode addItem.

[AlainTech]

Je ne connais pas VBA 2000...

Par contre ce qui serait nettement plus intéressant, c'est que tu nous dises dans quelle Application tu travailles.

VBA Excel 2000, ça je connais!

[gniark]

En fait je parlais de Access 2000..

[ouskel'n'or]

Autant pour moi. Recherche "RowSource" tu as 24 questions sur le sujet, l'une d'elle t'apportera sans doute la solution...
Je crois savoir que rowsource s'applique pour une plage de cellules (donc Excel) et que sur access, tu dois utilier un tableau
LeTableau = array("donnée1";"donner";"donné";"etc...")
Listbox.list = LeTableau
ou
ListBox.list = array("donnée1";"donner";"donné";"etc...")
Tu peux essayer ça pour nous ?

A+

[AlainTech]

En fait je parlais de Access 2000..

Si tu as encore d'autres questions après celle-ci, pense à mettre le tag [VBA-A] dans ton titre comme je l'ai fait pour toi.

Ca évite de tourner autour du pot pendant plusieurs messages...

[Invité]

Salut

Additem n'éxiste car partir d'Access 2002, l'autre solution serait de passer par une table ou tu mets des données et dans RowuSource une requête SQL, tu ne seras pas litmité par le nombre de caractères et en mettant "table/requête" à la propriété origine source

Starec