Salut,
Il faut mettre la listbox1 en multiselect. , soit en dur soit à l'initialize de l'usf soit par une checkbox.
Ensuite Me.ListBox1.selected(i) renvoie un boolean, donc il faut passer par une boucle chaque élément de la listbox pour savoir si selectionné ou pas.
Enfin l'évènement click est inopérant quand on passe en multiselect, il faut passer par un bouton de commande par exmeple le genre de boucle:
For Each Item In ColAccCur
Container = Split(Item, "#")
ReDim Preserve TabCur(2, x)
TabCur(0, x) = Container(0)
TabCur(1, x) = Container(1)
x = x + 1
Next
with listbox1
for i=0 to ubound(.list)
if listbox1.selected(i) =true then
For J = 0 To UBound(TabCur, 2)
If TabCur(0, i) = .list(i) then
Me.ListBox2.AddItem TabCur(1, i)
exit for 'on peut sortir de la 2 eme boucle
end if
next j
end if
next i
end with
Mais je ne comprends pas pourquoi tu veux faire du multiselect dans le cas présent ???
A+++