de listbox a listbox

[Michel]

Bonjour a tous

j ai un UF1 dans lequel j ai 2 listbox

Mon listbox1 rowsource est A1:A10
mon Listbox2 row source doit etre A1:A10 moins la selection de Listbox1

Comment faire ceci ???

MERCI

 

[PascalXLD]

Bonjour

un code qui devrait marcher en multiselect comme en singleselect

Private Sub ListBox1_Change()
Dim x As Byte
Me.ListBox2.Clear
For x = 0 To 9
If Me.ListBox1.Selected(x) = False Then Me.ListBox2.AddItem Me.ListBox1.List(x)
Next

End Sub

Bon courage