Discussion :

[nabilfaouzi]

salut, j'ai deux liste box et je veux copier toute les donné d'une liste à l'autre voici ma suggestion

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
 
Private Sub Déplacertout_Click()
Dim i As Integer
 
 
For i = 0 To List1.ListCount
 
 
List2.AddItem List1.Text, (i)
Next i
 
 
 
 
End Sub

mais ça marche pas. J'attend vos réponse

[ProgElecT]

List1.Text ne renvoie que le text visible (pour le combobox) et/ou la ligne en cours de selection.

Code :

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

List2.AddItem List1.List(i)

de plus ListCount renvoi le nombre de ligne, alors que list(n) demare de 0 à ListCount - 1