Transfert de listbox vers Excel

Ce sujet a été mis dans VBA Excel, mais sans réponse là bas, je remets ici mon message :

Citation:

---

Envoyé par Secco

Bonjour,

je découvre les listebox et je galère...

En fait, je recupère des données dans ma listbox (qui est dans un formulaire ACCESS), ça, ça ne pose pas de problème, il me les affiche dans mon formulaire (ACCESS). Cependant, je n'arrive pas à la transférer sur une feuille Excel.

Code:

---

1 2 3 4 5 6 7

... ListeTest.RowSource = "" For k = 0 To 29 ListeTest.AddItem tabClassification(k) Next k ...

---

Dans un premier temps j'ai essayé avec ce que j'ai trouvé sur http://silkyroad.developpez.com/VBA/ControlesUserForm/, j'ai donc fait

Code:

---

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

Dim wbTemp As Excel.Workbook Dim feuil As Worksheet Dim i As Long   Set wbkTp = RecupClasseur 'fct qui recupere le classeur actif   Set feuil = wbkTp.ActiveSheet   With ListeTest feuil.Range(Cells(1, 1), Cells(.ListCount, 1)) = .List End With

---

Mais il m'affiche le message d'erreur :
"Erreur de compilation :
Membre de méthode ou de données introuvables"
Tout en me surlignant la partie ".List"

Du coup, ne comprenant pas trop le code que j'avais "betement" collé de la page internet, j'ai tenté ça :

Code:

---

1 2	flM.Cells(25, 1) = ListeTest.List(1)

---

Mais rien n'y change, j'ai toujours le meme message d'erreur, et il me surligne toujours le .List.

Malheureusement, je ne trouve nulpart de la doc assez précise sur les listBox pour comprendre ce que c'est ce .List (qui d'ailleurs n'apparait pas quand je fais ListeTest. [ctrl + espace ] )

J'espère que quelqu'un pourra m'aider,

je vous remercie d'avance,

Secco

---

Je précise également, que par la suite j'ai essayé une msgbox qui m'affiche le ListeTest.ListCount et il n'y a pas de problème ça m'affiche 30 et que le ListeTest.ListIndex ça m'affiche -1 (si ça peut parler à quelqu'un, car moi ça me dit rien du tout..)

J'espère que quelqu'un saura m'aider

Secco

Bonsoir,

Dans Excel la listbox vient de la bibliothèque "Microsoft Forms 2.0".
Dans Access elle vient de "Microsoft Access x.x Object Library"
Il y a donc des différences.
Je ne crois pas que l'on puisse extraire en une seule fois toutes les données d'un zone de liste Access.
En revanche avec une boucle et le membre ItemData de la zone de liste Access :

Code:

---

1 2 3

For i = 0 To Me.ListeTest.ListCount - 1 feuil.Cells(1 + i, 1) = Me.ListeTest.ItemData(i) Next

---

A+

Mille mercis LedZeppII !!

Je n'ai pas bien compris ce que c'était le Me. mais bon.. au moins ça marche et ça c'est génial ! Je vais pouvoir enlever mes centaines de zones de texte que j'avais fini par créer...

Bon si jamais quelqu'un passe par là et peut m'expliquer le pourquoi du comment ça serait bien, mais bon, au moins je suis débloquée :-)

A bientôt pour de nouvelles aventures (moi pessimiste ?)

Secco

Bonjour,

Dans un module de code d'un formulaire, Me fait référence au formulaire en tant qu'objet.
Si tu as un formulaire Formulaire1, le module de code de ce formulaire est un module de classe ayant pour nom Form_Formulaire1 (le nom de la classe).
Me est un objet de de type Form_Formulaire1.

C'est pratique à utiliser quand on écrit du code car en tapant Me suivit de point(.) l'intellisence propose tous les membres du formulaire.
La zone de liste est un de ces membres.
Si on omet de mettre Me cela fonctionne quand même.

A+