Microsoft 365 Remplir une listbox avec résultat d'un CopyFromRecordset

[José77]

Bonjour ,
je récupère des données d'une base Access avec la ligne de code suivante
Worksheets("Feuil1").Range("A1").CopyFromRecordset rs

je voudrais ne pas passer par une feuille pour remplir une listbox.

Jusqu'ici je donne un nom au résultat sur la Feuil1 et j'utilise listbox1.rowsource = "Zone".
Y a t-il une autre manière ?
merci d'avance.
josé

 

[Compte Supprimé 979]

Bonjour José77

Normalement, tu peux inscrire directement les valeurs dans la LB

me.ListBox1.List = Rs

A+

 

[Hasco]

Bonjour,

Je le fais avec :

If Not Rs.EOF And Not Rs.BOF Then ListBox1.List = Rs.GetRows

 

[job75]

Bonjour à tous,

Je pense qu'il faut transposer :

If Not Rs.EOF And Not Rs.BOF Then ListBox1.List = Application.Transpose(Rs.GetRows)

Edit : la fonction Transpose est limitée à 65536 lignes, au-delà il faut utiliser un code pour transposer.

A+

 

[dysorthographie]

Bonjour à tous,

If Not Rs.EOF And Not Rs.BOF Then ListBox1.List = Application.Transpose(Rs.GetRows)

A+

Bonjour,

ListBox1.column=Rs.GetRows

 

[José77]

Bonjour,

ListBox1.column=Rs.GetRows

et bien encore merci beaucoup. Le code de Disorthographie fonctionne parfaitement alors qu'avec les propositions précédentes j'avais une petite erreur.
Merci à tous.
José

 

[job75]

Il n'y a pas d'erreur avec le code de Hasco ou le mien mais comme indiqué Rs.GetRows doit être transposé.