Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

José77

XLDnaute Occasionnel
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é
 

job75

XLDnaute Barbatruc
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+
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…