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