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