Bonjour à tous,

Débutante en VBA excel, je sèche depuis pas mal de temps sur la manière de remplir une listbox à partir du résultat d'une requête SQL.
J'ai besoin de 3 colonnes dans ma liste et je souhaite pouvoir récupérer la valeur de la première.

Début de mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set resultat = Database.OpenRecordset("SELECT * FROM clients", DAO.dbOpenSnapshot)
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "10;80;80"
If resultat.RecordCount > 0 Then
    resultat.MoveFirst
    i =1
    Do While resultat.EOF = False
        ListBox1.AddItem
        ListBox1.List(i, 0) = resultat!num_clt
        ListBox1.List(i, 1) = resultat!nom_clt
        ListBox1.List(i, 2) = resultat!prenom_clt
        i = i + 1
        resultat.MoveNext
   Loop
Bien sur, ça ne fonctionne pas. Coté requête, tout va bien. C'est sur la partie ListBox1.List(i, 0) que ça bloque.
Apres avoir regardé un tas de forums, je n'ai toujours pas trouvé la solution car j'ai du mal à comprendre le fonctionnement de cette listbox.

Qui pourrait m'aider ?
Avec mes remerciements.
Cordialement.