Discussion :

[louraluy]

Bonjour à toutes et à tous,

Je travaille actuellement sur un projet sous excel en vba. j'ai une base de donnée sous access.
J'ai une listview et je voudrais l'alimenter depuis une table de ma base de données access. Est ce que vous pourriez m'aider car je n'y arrive pas ... Actuellement je n'ai qu'une listbox qui se remplit bien mais je n'ai pas les noms de mes champs ce qui est un peu embêtant ...

Je vous remercie d'avance pour vos réponses !

Bonne journée

[Daniel.C]

Bonjour,

Quel est ton problème ? Est-ce de récupérer les données Access ou d'alimenter la listview ?

[louraluy]

Bonjour,

Mon problème est d'alimenter ma listview

[Daniel.C]

Tu as un tuto ici :

http://silkyroad.developpez.com/VBA/ListView/

Si tu as un problème, mets ton classeur et ta base Access (seulement la table nécessaire) -sans données confidentielles - en pièce jointe.

[Invité]

Bonjour,
Place le résultat de ta requête dans une feuille de calcul!

Code :

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

1
2
Me.ListBox1.RowSource = "Feuil2!" & Sheets("Feuil2").Range("A2:A9").Address
Me.ListBox1.ColumnHeads = True

[Daniel.C]

Bonjour rdurupt,

Il faut alors importer la table Access sur une feuille Excel. De plus, avec "RowSource" on ne peut pas ajouter ou supprimer des items.

[Invité]

Bonjour Daniel,
en vb6 j'arrive sans problème à placer une recordset dans une liste mais en vba je sèche et je n'est pas trouvé, si tu as la solution je prend!

[Daniel.C]

Il faut lire le recordset enregistrement par enregistrement et procéder au remplissage de la listview ou j'ai raté quelque chose ?

[Invité]

Oui ça c'est OK on même utiliser Getrows!
mais pour le nom des colonnes?

me.ListBox1.ColumnHeads=True .
si tu charges ligne par ligne et colonne par colonne tu es limité à 10 colonnes alors que par une plage excel non!
en vb6 me.ListBox1.datasource=RS 'ma requête là tu voies les titre de colonnes et tu supprime par requête et tu réactualise ton RS.requery et me.ListBox1.reffresh

[Daniel.C]

Code :

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

ListView.ColumnHeaders.Add

Il y a une limite ?

[Invité]

oui 10 quand tu le fait à la main!

en tout cas merci pour le ListView.ColumnHeaders.Add

[Daniel.C]

Au moins 28 par VBA (je n'ai pas essayé plus).

[Invité]

quand j'avais test la chance n'était pas avec mois! et je l'avait lue chez Microsoft!!!

[Daniel.C]

et je l'avait lue chez Microsoft!!!

Mauvaises lectures !

Sérieusement, il y a peut-être eu une amélioration ? (c'est beau, à mon âge, de croire encore au père Noël).

[Invité]

Mauvaises lectures !

Sérieusement, il y a peut-être eu une amélioration ? (c'est beau, à mon âge, de croire encore au père Noël).

alors on est 2!