1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic

Plusieurs colonnes zone de liste VBA [Résolu]

Signaler
Messages postés
65
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
31 janvier 2006
 -
Messages postés
65
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
31 janvier 2006
 -
Bonjour,
Voila mon probleme, je voudrais afficher des informations dans une zone de liste sur 3 colonnes différentes ( Nom, Prnom, Email). Mais imposssible d'accéder à la deuxième colonne, et à la troisiè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 = " & liste_diffusion.Value & ";"
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éjà fé ça ?
Merci
Gagou
A voir également:

9 réponses

Réponse 1 / 9
Messages postés
65
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
31 janvier 2006
oui oui mon nombre de colonnes est bien défini,
mais c bon g réussi par trouver, il suffit de sé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éussir à récuperer les valeurs.
Merci de ton aide
Gagou
3
Merci
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Réponse 2 / 9
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
 5
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 à gérer dans la ListBox
.ColumnCount = 3
'Définit la largeur de chaque colonne
.ColumnWidths = "30;80;70"
'Avec ce code la 3e colonne est masquée
'.ColumnWidths = "30;170;0"
'Ajoute 1 ligne
.AddItem
'Ecrit "a" dans la 1e colonne de la derniére ligne
.List(.ListCount - 1, 0) = "a"
'Ecrit "b" dans la 2e colonne de la dernière ligne
.List(.ListCount - 1, 1) = "b"
'Ecrit "c" dans la 3e colonne de la derniè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
Réponse 3 / 9
Messages postés
65
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
31 janvier 2006
d'abord j'avais déjà essayer liste_contacts.clear, mais il ne reconnait pas la méthode, donc c pour ça que j'ai fé le while.

pour le reste g fé kome tu as marqué, mais il ne reconnait pas la methode .List ou .Listcount.
Il me manquerai pas un composant ? ou autre chose ?
merci
Réponse 4 / 9
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
 5
Tu utilises bien une listbox en VBA ?
Si tu es sous VB6, le composant ListBox n'est pas le même qu'en VBA, et il me semble que dans ce cas, il ne gère pas le multicolonnes
Réponse 5 / 9
Messages postés
65
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
31 janvier 2006
ben mon application tourne sur access donc je suis bien en VBA
Réponse 6 / 9
Messages postés
65
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
31 janvier 2006
et g pris l'objet Zone de liste, c bien ça ? je me gourre pas de controle au moins ?
Réponse 7 / 9
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
 5
A part le fait que je sois sous Excel, j'ai pris le même composant, et j'ai testé le code avant de le déposer sur le forum.

Mais, si ta ListBox ne connait pas les propriétés List et ListCount, commen accèdes-tu aux valeurs de ta liste ?
Par exemple, comment récupères tu la valeur de la 3e ligne de ta liste ?
Réponse 8 / 9
Messages postés
65
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
31 janvier 2006
ben pour l'instant je n'arrive pas à afficher mes valeurs donc je ne peux pas les récupé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 à part une référence manquante dans VBA.
Réponse 9 / 9
Messages postés
4
Date d'inscription
mercredi 2 février 2005
Statut
Membre
Dernière intervention
3 février 2005
As-tu pensé, dans les propriétés de ta liste (et non dans le VBA) à définir le nombre de colonnes ?

Dans format, tu définit le nb de colonnes et aussi leur taille.
Posez votre question