Discussion :

[imsse]

salut !!

encore des petits sourci voila je sais quil ya pas mal de tutoriel jen ai lu pas mal et le probleme subsiste toujour !!

je veux remplir ma listBOX ( access 2003, userForm)
voila ce que je fais

Code :

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

1
2
3
4
5
6
7
8
9
 
Me.ListBox2.ColumnHeads = True
Me.ListBox2.ColumnWidths = "100;100"
Me.ListBox2.ColumnCount = 2
 
Do While Not ListBox2.TabIndex = EOF
 
Me.ListBox2.AddItem "item 1", 0
Me.ListBox2.AddItem "item 2", 1

sa me remplie seulement la 1er colone alors que jen ai 2 et je lui ai demander de majouter un nouvel item dans lindex 2 avec

Code :

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

Me.ListBox2.AddItem "item 2", 1

merci pour vos precieuse reponses !!!

[Invité]

Re

Tu y tiens vraiment a-t-on userform.

Bon dans ton cas il faut utiliser

Code :

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

1
2
 
Me.ListBox2.List(0, 1) = 1

regarde l'aide Excel pour avoir les informations.

Dans l'avenir va sur le forum Excel pour poser ce type de questions, ils ont plus l'habitude de travailler sur les composants de l'userform.

C'est bête que tu ne veuilles pas utiliser les formulaires Access, tu verras que tu y perdras.

Starec

[imsse]

voici l'erreur de cette ligne:

Code :

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

Me.ListBox2.List(0, 1) = 1

Impossible de définir la propriété List . Index de table de proprité non valide

que faire ?

[Invité]

Bonjour

Pourtant cela fonctionne pour une listbox forms2.0 des userforms excel.

La solution : Utilises les formulaires Access et ses composants (surtout si dans l'avenir tu veux alimenter tes listes avec du SQL).

Starec

[imsse]

c'est tout de meme étrange de ne pas puvoir le faire sur Access !!

[Jean-Philippe André]

Lorsque tu ajoutes des valeurs dans une listbox, sur la même ligne, je te conseille cette méthode

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Me.MaListBox.ColumnCount = 4
Me.MaListBox.Additem "ceci"
Me.MaListBox.List(Me.MaListBox.ListCount -1,1) = "est"
Me.MaListBox.List(Me.MaListBox.ListCount -1,2) = "un"
Me.MaListBox.List(Me.MaListBox.ListCount -1,3) = "exemple"
Me.MaListBox.Additem "et"
Me.MaListBox.List(Me.MaListBox.ListCount -1,1) = "ceci en est"
Me.MaListBox.List(Me.MaListBox.ListCount -1,2) = "un"
Me.MaListBox.List(Me.MaListBox.ListCount -1,3) = "aussi"

[imsse]

c'est génial !!
merci sa marche !! jai un bon debut il me reste plus qua savoir les manipuler corectement !!

merci !!!!

dis moi jpcheck pour parcourir ma listeBox du coup je fais comment ??
quesce qui represente les ligne et quesce qui représente les colonnne ?

car jaimerais charger dans ma Liste box les données de ma table.

Je fais comment ?

ta solution est pratique seulement si nous avon que peut de donnée nan ?

[Jean-Philippe André]

tu peux avoir ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
dim StrSQL as String
dim RS as DAO.RecordSet
strSQL = "SELECT Champs1, Champs2, Champs3 AS Alias1 FROM MaTable ORDER BY Champs1;"
set RS = CurrentDb.Openrecordset (strSQL)
Do Until RS.EOF
Me.MaListBox.Additem RS!Champs1
Me.MaListBox.List(Me.MaListBox.ListCount -1,1) = RS!Champs2
Me.MaListBox.List(Me.MaListBox.ListCount -1,2) = RS!Alias1
RS.MoveNext
Loop

[imsse]

je viens de tester ce que tu as dis et sa marche impécable !!
je lai adapter a ce que je sais faire je te montre le code !!

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM Gamme", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
Do While Not rs.EOF
Me.ListBox3.AddItem rs.Fields![IdGamme]
Me.ListBox3.List(Me.ListBox3.ListCount - 1, 1) = rs.Fields![IntituléGamme]
rs.MoveNext
 
Loop

je pense que c'est la meme chose que ce que tu as ecris !

merci beaucoup car sa fais 5 jours que jété bloqué a cherché sur les forum..

[Jean-Philippe André]

oui oui c'est bien ça

[imsse]

cool !!
et donc le jour ou je voudrai parcourir ma list box pour recherché un element a lintérieur je peux faire sa ?

Code :

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

1
2
3
4
5
6
7
8
 
Dim variableRecherché As String
variableRecherché = "intitulé"
For cpt = 0 To 3
    If (Me.ListBox3.List(Me.ListBox3.ListCount - 1, cpt) = variableRecherché) Then
        MsgBox ("j'ai trouvé")
    End If
Next

mais visiblement sa ne me parcour pas ma liste box comme je voudrais

[imsse]

je viens de trouver la reponse on sais jamais sa peut servir a quelqun d'autre, mais par contre je ne serais pas expliquer le pourquoi du comment !! lol

Code :

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

1
2
3
4
5
6
7
8
 
Dim variableRecherché As String
variableRecherché = "intitulé"
For cpt = 0 To 3
    If (Me.ListBox3.List(1, cpt) = variableRecherché) Then
        MsgBox ("j'ai trouvé")
    End If
Next

[Jean-Philippe André]

là tu parcours seulement la première ligne de ta listbox, il faut un autre compteur si tu veux passer sur toutes les lignes de la listbox, mais sinon oui c'est bon !