[VBA-A]Remplissage ListBox

Version imprimable

Bonjour,

je travaille actuellement sous Access et je dois réaliser des formulaires que je dois remplir avec des donnée de table. J'ai donc repris un ancien code que j'avais réaliser sous Outlook dans le même but (j'utilisais la méthode AddItem). Or, il s'avère que cette méthode ne marche pas sous Access: j'ai donc tenté d'utiliser RowSource.. sans succès, et je ne comprends vraiment pas pourquoi. Voici mon code de remplissage:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 With rstLogi If (.State = adStateOpen) And (Not (.EOF And .BOF)) Then .MoveFirst Do Until .EOF strChaine = .Fields("designation") Form_LIST_LOGI.List_Logi.RowSource = strChaine .MoveNext Loop Else MsgBox "Pas d'objet" End End If End With
Sachant que strChaine est de type String et qu'il contient une requête SQL (qui est correct), quelqu'un saurait t'il me dire pourquoi cela ne marche pas ? Ai je omis quelque chose ?

Merci :D

Cuicui

24/02/2006, 10h07
cuicui08

Personne ne sait ?

Si vous voulez que j'ajoute plus d'élément (comme ma requête ainsi que son execution par exemple, ou encore l'appelle de la sous routine) n'hésitez pas à me le faire savoir

Merci :)
24/02/2006, 10h13
Invité
Salut,

La méthode Additme n'éxiste qu'à partir d'Access 2002
Code:

1 2 3 4 5 6 7 8 dim strChaine as String strChaine = "" while not rstLogi.EOF strChaine = rstLogi("designation") & ";" & strChaine rstLogi.MoveNext wend me.maliste.rowsource = strChaine
Et mettre liteValeurs dans les propriétés de ta liste.

Ce code est tapè à la main, pas dans l'éditeur VB, mais le principe est là

Starec
24/02/2006, 10h21
cuicui08

Toujours le même problème.. La liste box ne se remplit pas.

En outre, j'ai tenter de faire cela pour voir si elle se replissait mais sans succès

Code:

Form_LIST_LOGI.List_Logi.RowSource = ("cuicui";"kilvan";"oiseau")

Il doit me manquer un élément, mais je ne voit vraiment pas quoi..
24/02/2006, 10h35
Invité

Re

Il me semble qu'il ne faut pas de parenthèse, as-tu controler listeValeurs dans les propriétés

Starec
24/02/2006, 10h44
cuicui08

Re

Si je ne met pas de parenthese, il me dit "Erreur : Fin d'instruction"

Par contre, je t'avoue que je suis un peu perdu (pourquoi on ne peut pas utiliser AddItem snif..) Que veux tu dire par controler ListeValeur dans propriété ? J'imagine que c'est dans les propriétés de la listbox mais je dois vérifier quoi ?

J'ai bien une idée mais j'ignore si elle va fonctionner aver access (il y a un forum Access)
Au lieu de tenter de renseigner la listbox dans la boucle, crée un tableau dans la boucle - avec redim preserve Tableau(NoLigne) - puis, remplis ta listbox du tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim strChaine()
   With rstLogi 
        If (.State = adStateOpen) And (Not (.EOF And .BOF)) Then 
        .MoveFirst 
            Do Until .EOF 
                i = i + 1
                Redim preserve strChaine(i)
                strChaine(i) = .Fields("designation") 
                .MoveNext 
            Loop 
        Else 
            MsgBox "Pas d'objet" 
            End 
        End If 
    End With
Form_LIST_LOGI.List_Logi.List()= strChaine()

Comme je ne peux pas vérifier, je me suis inspiré de ça

Code:

1
2
3
4
5
6
7
Dim Tableau()
    Do While i < 15
        i = i + 1
        ReDim Preserve Tableau(i)
        Tableau(i) = Worksheets("Feuil1").Cells(i, 2).Formula
    Loop
UserForm1.MaListeBox.List() = Tableau()

qui fonctionne en VBA-E

A toutes fins utiles ... et à tout hasard, donc ! :wink:

24/02/2006, 11h04
cuicui08

Ok, merci bien :)

Je vais vérifier tout de suite. par contre, je laisse strChaine en type string ou je le met en tableau ? Si je dois le déclarer en temps que tableau, je met quoi comme nom de variable en VBA ?
(le code que tu t'es inspiré est du VBScript me semble t'il ? :D)

Encore merci pour votre aide
24/02/2006, 11h13
ouskel'n'or

Non, c'est du VBA97 !!!
Quant à ta strChaine, comme j'ai essayé ça vite fait, c'est un variant mais fais l'essai avec string.
Bref, tu peux essayer ça pour moi ? Tu nous donneras le résultat de ton expérience... :wink:

Merci pour tout :lol:

A+
24/02/2006, 11h20
cuicui08

Lol je viens d'essayer rapidement sans trop tenter de changer quoi que ce soit. Il attend effectivement un tableau :s. Je vais retenter d'autre manip.. Je comprends vraiment pas pourquoi ma listbox ne se remplit pas :S. Au fait, c'est moi qui te remercie lol ;)

Je viens de voir une erreur possible :

Au lieu de

Code:

1
2
3
        End If 
    End With 
Form_LIST_LOGI.List_Logi.List()= strChaine()

Mets

Code:

1
2
3
        End If 
        Form_LIST_LOGI.List_Logi.List()= strChaine() 
    End With

Tu dis

A+

24/02/2006, 12h58
AlainTech

Citation:

Envoyé par cuicui08

Toujours le même problème.. La liste box ne se remplit pas.

En outre, j'ai tenter de faire cela pour voir si elle se replissait mais sans succès

Code:

Form_LIST_LOGI.List_Logi.RowSource = ("cuicui";"kilvan";"oiseau")

Il doit me manquer un élément, mais je ne voit vraiment pas quoi..

As-tu essayé

Code:

Form_LIST_LOGI.List_Logi.RowSource = Array("cuicui";"kilvan";"oiseau")

:?:

Edit --> Ou, comme le suggère ouskel'n'or:

Code:

Form_LIST_LOGI.List_Logi.List() = Array("cuicui";"kilvan";"oiseau")
27/02/2006, 09h10
cuicui08

Bonjour,

désolé de ne pas avoir donnée de signe de vie avant mais je n'ai pas pu me connecter à Internet ce week end. Je viens de tester vos différentes manières, sans succès.. (si je laisse les point virgules, il génère une erreur et la ligne devient rouger et si je remplace par des virgules, il me dis :"Imconpatibilité du type") Je ne comprend vraiment pas ..
27/02/2006, 09h21
ouskel'n'or
Pourquoi ne passes-tu pas par un tableau ?
(En VBA, le séparateur est une virgule, en VB je ne sais pas)
Code:

1 2 Tableau = array("","cuicui","kilvan","oiseau","nid","branche", "arbre","derrière chez moi", "un petit bois") Form_LIST_LOGI.List_Logi.RowSource = Tableau
Ça, je suis bien certain que ça marche. Attention, ton tableau commence à 0 et la chaîne vide est là pour ça

Tu dis
27/02/2006, 09h49
cuicui08

Je vais essayer voir si ca marche, mais en fait le vrai but de mon projet est de joindre des requêtes SQL à la listbox, c'est pourquoi je n'ai pas osé utiliser de tableau, de peur que ça ne marche pas (je me suis peut etre tromper, non ?). Bon, je vais tester ce que tu m'as donné et je vous redis quoi. Encore merci
27/02/2006, 09h52
cuicui08

Je viens de faire un copier/coller, pour bvoir si la listbox se rempliçait enfin :D Il me dis qu'une bibliothèque n'est pas ouverte. Je dois ouvrir quoi dans l'explorateur d'objet pour utiliser les tableaux ?
27/02/2006, 09h53
ouskel'n'or

En VBA Excel j'aurais écrit
Form_LIST_LOGI.List_Logi.List= Tableau
et non RowSource qui pour moi voudrait dire que j'attends une plage de données dans une feuille de calcul... :?:

A+
27/02/2006, 09h56
ouskel'n'or

Dans Outils -> Références si tu vois marqué MANQUANT, c'est que la référence est ... manquante.
Mais pour VBA Access, je vais te laisser avec ceux qui connaissent...

A+
27/02/2006, 11h05
cuicui08

Ok, encore un grand merci. Je vais donc faire comme tu viens de me dire (j'y arriverais à afficher ces éléments dans la listbox.. j'y arriverais :D)