Bonjour,

Actuellement, je fais passer de ma liste de gauche (Liste 1) les items sélectionnés dans la liste de droite (Liste 2) par le bouton ">".

J'aimerais, via un autre bouton, enlever de la liste1, les données que j'ai envoyé dans la liste2.

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
Private Sub CommandButton3_Click()
 
Dim i As Integer, J As Integer, z As Integer
 
 
For i = 0 To ListBox1.ListCount - 1
    For J = 0 To ListBox2.ListCount - 1
         If ListBox2.List(J) = ListBox1.List(i) Then
            ListBox1.RemoveItem ListBox1.List(i)
 
 
   End If
   Next
   Next
 
End Sub
L'erreur est "Argument non valide". Je bloc...
La valeur remonté de Listbox1.list(i) semble être la bonne... Quelqu'un voit-il une solution?