Discussion :

[Secco]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Secco]

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

Ensuite, j'ai essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ListeTest.ListCount

[Secco]

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...

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Secco]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)...

[fring]

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

[Secco]

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)

[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 !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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... :''(

[fring]

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 !

je pouvais encore chercher longtemps...

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

[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...

je ne trouve vraiment pas :'(

[fring]

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.

[Secco]

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

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Secco]

Dois je comprendre que je dois faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Parce que ça.. ça ne marche pas

[Secco]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[AlainTech]

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