Plusieurs colonnes zone de liste VBARésolu

Question

Bonjour,
Voila mon probleme, je voudrais afficher des informations dans une zone de liste sur 3 colonnes diff&#233;rentes ( Nom, Prnom, Email). Mais imposssible d'acc&#233;der &#224; la deuxi&#232;me colonne, et &#224; la troisi&#232;me aussi.
Voici mon code.


Private Sub liste_diffusion_Change()


Dim rst As ADODB.Recordset
Dim SQL As String


While liste_contacts.ListCount > 0
    liste_contacts.RemoveItem (0)
Wend

Set rst = New ADODB.RecordsetSQL "Select CONTACT.Nom , CONTACT.Prenom, CONTACT.Email From CONTACT_DIFFUSION, CONTACT , LISTE_DIFFUSION where CONTACT.Num_contact CONTACT_DIFFUSION.Num_contact And LISTE_DIFFUSION.Num_liste=CONTACT_DIFFUSION.Num_liste and LISTE_DIFFUSION.Num_liste = " &amp; liste_diffusion.Value &amp; ";"
rst.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic



 


If rst.RecordCount > 0 Then
    rst.MoveFirst
    
    Do While rst.EOF = False
    
        liste_contacts.AddItem rst!Nom
        liste_contacts.AddItem rst!Prenom
        rst.MoveNext
        
    Loop
    
End If


End Sub



si je rajoute dans mon while 
 liste_contacts.column(2,0) rst!Prenom
l'erreur est : Erreur 424 Objet Requis.
Kelkun at'il d&#233;j&#224; f&#233; &#231;a ?
Merci
Gagou

Gagou_c · Accepted Answer

oui oui mon nombre de colonnes est bien d&#233;fini, 
mais c bon g r&#233;ussi par trouver, il suffit de s&#233;parer les valeurs de chaque colonne par un point virgule :

liste_contacts.AddItem  rst!Nom & ";" & rst!Prenom & ";" & rst!Email

voila, maintenant je vais voir si je vais r&#233;ussir &#224; r&#233;cuperer les valeurs.
Merci de ton aide
Gagou

mrdep1978 · Answer

Tt d'abord tu peux remplacer
While liste_contacts.ListCount > 0
    liste_contacts.RemoveItem (0)
Wend
par
liste_contacts.Clear

Et voila comment remplir une listbox multicolonnes


Private Sub UserForm_Initialize()
With liste_contacts
    'Largeur de la ListBox
    .Width = 200
    'Nb Colonnes &#224; g&#233;rer dans la ListBox
    .ColumnCount = 3
    'D&#233;finit la largeur de chaque colonne
    .ColumnWidths = "30;80;70"
    'Avec ce code la 3e colonne est masqu&#233;e
    '.ColumnWidths = "30;170;0"
    'Ajoute 1 ligne
    .AddItem
    'Ecrit "a" dans la 1e colonne de la derni&#233;re ligne
    .List(.ListCount - 1, 0) = "a"
    'Ecrit "b" dans la 2e colonne de la derni&#232;re ligne
    .List(.ListCount - 1, 1) = "b"
    'Ecrit "c" dans la 3e colonne de la derni&#232;re ligne
    .List(.ListCount - 1, 2) = "c"
    'Ajoute une ligne
    .AddItem
    'Idem ci-dessus mais avec d, e, f
    .List(.ListCount - 1, 0) = "d"
    .List(.ListCount - 1, 1) = "e"
    .List(.ListCount - 1, 2) = "f"
    'Remplace le contenu de la premiere ligne
    '   a   b   c
    '=> g   h   i
    .List(0, 0) = "g"
    .List(0, 1) = "h"
    .List(0, 2) = "i"
End With
End Sub

Gagou_c · Answer

d'abord j'avais d&#233;j&#224; essayer liste_contacts.clear, mais il ne reconnait pas la m&#233;thode, donc c pour &#231;a que j'ai f&#233; le while.

pour le reste g f&#233; kome tu as marqu&#233;, mais il ne reconnait pas la methode .List ou .Listcount.
Il me manquerai pas un composant ? ou autre chose ? 
merci

mrdep1978 · Answer

Tu utilises bien une listbox en VBA ? 
Si tu es sous VB6, le composant ListBox n'est pas le m&#234;me qu'en VBA, et il me semble que dans ce cas, il ne g&#232;re pas le multicolonnes

Gagou_c · Answer

ben mon application tourne sur access donc je suis bien en VBA

Gagou_c · Answer

et g pris l'objet  Zone de liste, c bien &#231;a ? je me gourre pas de controle au moins ?

mrdep1978 · Answer

A part le fait que je sois sous Excel, j'ai pris le m&#234;me composant, et j'ai test&#233; le code avant de le d&#233;poser sur le forum.

Mais, si ta ListBox ne connait pas les propri&#233;t&#233;s List et ListCount, commen acc&#232;des-tu aux valeurs de ta liste ?
Par exemple, comment r&#233;cup&#232;res tu la valeur de la 3e ligne de ta liste ?

Gagou_c · Answer

ben pour l'instant je n'arrive pas &#224; afficher mes valeurs donc je ne peux pas les r&#233;cup&#233;rer.
Dans un premier temps, je voulais simplement afficher mes valeurs, mais apparemment cela ne fonctionne pas...
je ne vois pas kes ki peut bloquer &#224; part une r&#233;f&#233;rence manquante dans VBA.

cs_JKE · Answer

As-tu pens&#233;, dans les propri&#233;t&#233;s de ta liste (et non dans le VBA) &#224; d&#233;finir le nombre de colonnes ?

Dans format, tu d&#233;finit le nb de colonnes et aussi leur taille.

Plusieurs colonnes zone de liste VBA

9 réponses

Discussions similaires