[VBA-A]zone de liste

Version imprimable

21/04/2006, 15h57
gniark

[VBA-A]zone de liste

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

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:

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

22/04/2006, 02h14
AlainTech

Citation:

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?
22/04/2006, 11h18
ouskel'n'or

Citation:

Envoyé par Tu

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

Citation:

Envoyé par AlainTech

Tu peux nous montrer le code qui fait ça?

+1

Tu ne confondrais pas avec additem ?

A+

Voici le code utilisé:
Code:

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

24/04/2006, 09h15
AlainTech

Citation:

Envoyé par gniark

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???
24/04/2006, 09h32
gniark

Je travaille sous VBA 2000 et pour les zones de liste je n'ai pas accès à la méthode addItem.
24/04/2006, 09h48
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!
24/04/2006, 09h52
gniark

En fait je parlais de Access 2000.. ;)
24/04/2006, 11h11
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+
24/04/2006, 11h49
AlainTech

Citation:

Envoyé par gniark

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...
24/04/2006, 13h05
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