Import de données SQL dans une listbox à plusieurs colonnes

Bonjour.

Je souhaiterais récupérer des enregistrements sur base de données SQL et les insérer dans une listbox de plusieurs colonnes.
Etant débutant en VBA, j'ai du mal a élaborer le code qui me conviendrait.
J'ai une table contenant 42 colonnes, et une listbox de 43 colonnes (pour compter le nombre d'enregistrement)

Mon code actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Dim req1 As String, req2 As String Dim nbreg As Integer Dim i As Integer, j As Integer Dim connect As Boolean Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset Dim tab1(41) As String       Private Sub CommandButton1_Click() UserForm4.ListBox1.ColumnCount = 43 req1 = "SELECT count(*) from [" & TL2 & "] ;" With rs1 .CursorLocation = adUseServer 'curseur coté serveur .CursorType = adOpenForwardOnly 'type de curseur .LockType = adLockReadOnly 'option de curseur .Open req1, cnx, adOpenStatic 'exécution de la requête SQL nbreg = .Fields(0).Value 'récupération de l'enregistrement .Close End With   req2 = "select * from [" & TL2 & "]" With rs2 .CursorLocation = adUseServer 'curseur coté serveur .CursorType = adOpenForwardOnly 'type de curseur .LockType = adLockReadOnly 'option de curseur .Open req2, cnx, adOpenStatic 'exécution de la requête SQL For i = 1 To (nbreg) UserForm4.ListBox1.AddItem "N°" & i For j = 0 To 41 tab1(j) = .Fields(j).Value 'récupération de l'enregistrement UserForm4.ListBox1.List(i - 1, j + 1) = tab1(j) Next j Next i .Close End With End Sub

---

Mon problème se situe au niveau de la récupération des données.
Le premier hic est que j'ai pu constater avec l'aide d'une msgbox que tab1() n'enregistre que la première ligne de la table SQL.
=> Comment puis-je récupérer l'ensemble des données de la table? (j'ai pensé à un tableau à deux dimensions, mais je ne sais pas comment le mettre en oeuvre avec le recordset)

Ensuite, la ligne

Code:

---

UserForm4.ListBox1.List(i - 1, j + 1) = tab1(j)

---

me retourne l'erreur "Invalid property value", et je ne sais pas trop à quoi elle correspond :s
(je soupsonne également req2 de ne pas être la meilleure solution.)

Toute aide étant la bienvenue, merci d'avance :)

Bonjour.

Après quelques recherches supplémentaires (merci à Jean-Marc Rabilloud pour son tuto sur les recordset), j'ai pu avancer dans mon code que voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim req1 As String Dim nbreg As Integer Dim i As Integer, j As Integer Dim connect As Boolean Dim rs1 As New ADODB.Recordset Dim tab1() As Variant   Private Sub CommandButton1_Click() UserForm4.ListBox1.ColumnCount = 43 req1 = "select * from [" & TL2 & "]"   With rs1 .CursorLocation = adUseClient .LockType = adLockReadOnly .Open req1, cnx, adOpenStatic nbreg = .RecordCount .MoveFirst ReDim tab1(nbreg, 41) For i = 1 To (nbreg) UserForm4.ListBox1.AddItem "N°" & i For j = 0 To 41 tab1(i - 1, j) = .Fields(j) UserForm4.ListBox1.List(i - 1, j + 1) = tab1(i - 1, j) 'MsgBox tab1(i - 1, j) Next j .MoveNext Next i .Close End With End Sub

---

Je récupère maintenant l'ensemble de mes données (vérifié par la msgbox en commentaire).
J'ai cependant toujours un problème avec l'affichage dans la listbox ; je ne peux pas remplir plus de 10 colonnes : à la 10èm valeur (j = 9) la ligne

Code:

---

UserForm4.ListBox1.List(i - 1, j + 1) = tab1(i - 1, j)

---

me retourne "Could not set the list property. Invalid property value.".
Je n'arrive pas à me débloquer (je ne comprend pas pourquoi les propriétés ne sont plus bonnes à la 10èm colonne :s).
Je vais continuer mes recherches (autour du rowsource de la listbox également, que j'ai testé sans résultat pour le moment).

Merci d'avance.

Bonjour,

Je me trompe peut etre, mais de mémoire, une listbox ne peux pas accepter plus de 10 colonnes. C'est une limitation d'excel.

Merci pour la réponse si rapide :)

Je n'ai rien trouvé dans l'aide VBA concernant la limitation de colonnes, et après quelques recherches, j'ai finalement réussi à résoudre mon problème (apparament il n'y a donc pas de limites).

Mon nouveau code pour ceux que ça pourrait aider :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

With rs1 .CursorLocation = adUseClient .LockType = adLockReadOnly .Open req1, cnx, adOpenStatic nbreg = .RecordCount .MoveFirst ReDim tab1(nbreg, 42) For i = 1 To (nbreg) For j = 0 To 41 tab1(i - 1, j) = .Fields(j) UserForm4.ListBox1.List = tab1 Next j .MoveNext Next i .Close End With

---

Le code fonctionne si on ne précise pas les indexs de la listbox ni ceux de la matrice.

Merci encore et bonne journée.