VBA Excel : Transfert listbox vers Excel

Bonjour,

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

En fait, je recupère des données dans ma listbox, ça, ça ne pose pas de problème, il me les affiche dans mon formulaire. 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

Bonjour,

En supposant que tu transfères les données de ta ListBox via un bouton qui se trouve également sur ton UserForm

Essaye ceci que tu pourras adapter

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim i As Integer   For i = 0 To ListeTest.ListCount - 1 Cells(i + 1, 1) = ListeTest.List(i) Next   End Sub

---

Tout d'abord merci de prendre le temps de réfléchir à mon problème :)

Ensuite, j'ai essayé ceci :

Code:

---

1 2 3 4

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

---

Comme tu me l'as suggéré, mais malheureusement, j'ai toujours le meme message d'erreur. Et à mon avis le problème vient de ce ".List" qui n'est meme pas accessible dans la liste des propriétés de ma listebox, mais je n'arrive toujours pas à trouver pourquoi...

Non le problème ne vient pas de là, le code que je t'ai envoyé fonctionne.
Commence par faire ce test

Code:

---

MsgBox ListeTest.ListCount

---

Ca marche, j'ai une réponse : 30

Mais toujours le meme message d'erreur avec ce .List surligné

Et toi, quand tu fais le test, est ce que quand tu fais . [ctrl] tu as List ? Car je n'ai pas cette propriété de proposé et je trouve ça bizarre...

Alors fais le test directement sur une feuille active, n'importe laquelle, en retirant ton feuil.

Code:

---

1 2 3

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

---

Bon, je teste, je teste... rien ne marche, toujours la meme erreur.

Et là, je me dis mais au fait, y'a une autre sorte de liste, les listes modifiables !

Donc, déjà est ce que le .list ça marche que avec les listes modifiables par hasard ? ...

Et ensuite, du coup j'ai recrée ma ListeTest avec une liste modifiable mais alors les ennuis commencent au moment de rentrer mes données dans ma liste !

Bon fring, j'espère que tu vas pas m'abandonner, la solution approche (enfin j'espère !!)

au faites, mon code pour remplir ma listebox (modifiable maintenant) :

Code:

---

1 2 3 4 5

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

---

et donc mon problème, ça met pas d'erreur, mais ça ne remplit pas ma listebox (modifiable)...

La "zone de liste modifiable" est un (ou une) ComboBox.
La "zone de liste" est une ListBox.

Ya pas raison de changer, cela doit fonctionner avec la ListBox.

Je ne comprend vraiment pas d'où peut provenir l'erreur.
Ci-joint un fichier avec le fonctionnement de la listbox selon le code que je t'ai proposé. Compare et essaye de trouver ce qui couine.

Si toujours rien, envois un bout de fichier avec ton userform et tout le toutim

Pièce jointe 29245

encore merci, je vais tester, ça à fond, de toute façon il faut que ça marche !

je tiendrais au courant ici...
(si entre temps si quelqu'un a aussi d'autres idées, merci)

En testant, je me rends compte, que je n'ai pas précisé un truc important quand meme c'est que mon formulaire il se trouve dans une formulaire ACCESS !

Donc en fait,
quand je fais mon formulaire access je fais :

Code:

---

1 2 3 4 5

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

---

Ensuite, quand on clique sur un bouton de ce formulaire, je fais ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CMd_Excel_Click()   Dim wbkTp As Excel.Workbook Dim feuil As Worksheet Dim i As Long   Set wbkTp = recupClasseur   Set feuil = wbkTp.ActiveSheet   MsgBox ListeTest.ListCount   For i = 0 To ListeTest.ListCount - 1 feuil.Cells(i + 1, 1) = ListeTest.List(i) Next   End Sub

---

Et donc, ma listebox se remplie (j'utilise bien une listbox, la meme que au debut, donc pas une modifiable). Mais impossible de faire fonctionner la deuxième partie, le transfert sous Excel... :''(

Citation:

---

Envoyé par Secco

En testant, je me rends compte, que je n'ai pas précisé un truc important quand meme c'est que mon formulaire il se trouve dans une formulaire ACCESS !

---

8O je pouvais encore chercher longtemps...

Désolé là je ne connais pas le fonctionnement, je ne manipule jamais Access

Désolé... j'avais omis ce point complétement important, mais normalement le code VBA et les controls fonctionnent de la meme manière...

je ne trouve vraiment pas :'(

Citation:

---

Envoyé par Secco

Désolé... j'avais omis ce point complétement important, mais normalement le code VBA et les controls fonctionnent de la meme manière...

---

Oui sans doute, mais le problème (à mon avis) n'est pas dans la manipulation de la ListBox mais c'est la syntaxe pour transférer les données de la listbox se trouvant sur Access vers un classeur Excel et cette syntaxe je ne la connais pas.

Je n'ai toujours pas résolu ce problème... Je vais aller le mettre dans VBA ACCESS également,

si quelqu'un comprend pourquoi je n'ai pas accès à la propriété .List de ma liste box, merci de m'expliquer

Bonjour,

Because (lis donc ton aide en ligne) la propriété List d'une Listbox est un Array de chaines de caractères, où chacune des chaînes est un élément de la Listbox !
La propriété List non accompagnée d'un index d'"article est forcémùent incomplète et ne signifie rien.

Donc, ceci ne signifie rien et provoque une erreur largement prévisible car ne correspondant pas à la syntaxe attendue :

Code:

---

feuil.Range(Cells(1, 1), Cells(.ListCount, 1)) = .List ' Manque l'index !

---

Dois je comprendre que je dois faire :

Code:

---

feuil.Range(Cells(1, 1), Cells(.ListCount, 1)) = .List(1)

---

Parce que ça.. ça ne marche pas :(

Solution donnée par LedZeppII dans la section forum VBA ACCESS :

Code:

---

1 2 3

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

---

Merci à tous ceux qui se seront cassé la tête pour m'aider !

Le ME. reste encore un mystère pour moi..

Me. signifie cet Userform-ci ou cette feuille-ci en fonction de l'endroit où est placé le code.