Discussion :

[eno97]

Bonjour le forum
Voilà, sur un userform, je dispose de deux ListBox contenant, à l'initialisation, exactement les mêmes valeurs.
Je souhaiterai que, lorsque je sélectionne un élément de LB1, cet élément n'apparaisse pas dans LB2.
Là où je bloque, c'est que, si j'ai choisi un élément dans LB1, puis un élément dans LB2, et si je modifie l'élément dans LB2, l'élément que j'avais choisi en premier lieu sur LB2 ne réaparait pas dans LB1, alors que justement, je souhaiterai qu'à tout moment, dans chaque LB, tous les éléments soient disponibles, exeption faite de celui sélectionné dans l'autre LB

Comme je ne suis pas sûr d'être très clair, j'ai mis un fichier excel en exemple

Est-ce que quelqu'un pourrait me donner un coup de main svp?

merci d'avance

[Phil'oche]

Salut,

Si j'ai tout bien compris, ça devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ListBox1_Change()
    ListBox2.List = liste
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.List(i) = ListBox1.value Then
            ListBox2.RemoveItem (i)
            Exit For
        End If
    Next i
End Sub

et

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ListBox2_Change()
    ListBox1.List = liste
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i) = ListBox2.value Then
            ListBox1.RemoveItem (i)
            Exit For
        End If
    Next i
End Sub

[eno97]

Effectivement c'était tout bête et ça marche parfaitement

merci beaucoup et bonne journée