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

José77 · 27 Janvier 2023

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 · 27 Janvier 2023

Bonjour José77

Normalement, tu peux inscrire directement les valeurs dans la LB

VB:

me.ListBox1.List = Rs

A+

Hasco · 27 Janvier 2023

Bonjour,

Je le fais avec :

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

job75 · 27 Janvier 2023

Bonjour à tous,

Je pense qu'il faut transposer :

VB:

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 · 27 Janvier 2023

job75 à dit:
Bonjour à tous,

VB:

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

A+

Bonjour,

Code:

ListBox1.column=Rs.GetRows

José77 · 27 Janvier 2023

dysorthographie à dit:
Bonjour,

Code:

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 · 27 Janvier 2023

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

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

José77

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Hasco

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

José77

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires