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.
L'erreur est "Argument non valide". Je bloc...
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
La valeur remonté de Listbox1.list(i) semble être la bonne... Quelqu'un voit-il une solution?
Partager