Transposer résultat recordset

Bonsoir à tous,

Grâce à une connexion ADO sur des feuilles de mon fichier excel, je dispose du résultat d'une requête contenu dans un recordset.

Je souhaiterais maintenant "exporter" les données présentes dans celui-ci de manière transposée (lignes à la place des colonnes). En somme, au lieu de copier le résultat lignes par lignes, le faire colonnes par colonnes.

J'avais pensé à un code de ce type :

Code:

---

1 2 3 4 5 6 7 8

'rst = mon recordset contenant des données 'range = range cible pour copier mes données   While Not (rs.EOF) Range.Next.copyfromrecordset rs rs.MoveNext Wend

---

Auriez-vous une idée ?

Merci à tous pour votre aide :calim2:

Jaymerry

Bonjour,

Tu pourrais retourner les valeurs successives dns une variable tableau intermédiaire de X lignes et Y colonnes (nbre de champs de la requete)
et transposer celui ci sur la feuille excel

par exemple

Code:

---

range("A3).resize(Y,X)=application.transpose(tontablo)

---

c'est seulement une idée !

Merci du tuyau :ccool:, effectivement cela a fonctionné avec le code suivant et en passant par une feuille intermédiaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'rs mon recordset contenant des données   Dim tabi As Range   ThisWorkbook.Worksheets("Feuil2").Cells(2, 1).CopyFromRecordset rs     Set tabi = ThisWorkbook.Worksheets("Feuil2").Range("A2:B" & rs.RecordCount & "")   ThisWorkbook.Worksheets("Feuil1").Range("J1:AZ3" & Split(ActiveSheet.UsedRange.Address, "$")(4)).Resize(2, rs.RecordCount) = Application.Transpose(tabi)

---

Merci,

Jaymerry