Zona de lista VBA/Access

Buenas noches,

Aquí una parte de la respuesta: Los elementos seleccionados en la lista 1 se envían a la lista 2 en el evento de tu elección
---------------1. Vaciar la lista 2----
Private Sub vider_liste2()
Dim x As Integer
If Me.Liste2.ListCount > 0 Then
For x = 1 To Me.Liste2.ListCount
Me.Liste2.RemoveItem (x)
Next x
End If
End Sub

---------------2. Alimentar lista 2---------
Private Sub charge_liste2()
If Me.liste1.ItemsSelected.Count > 0 Then
Me.Liste2.AddItem Me.liste1.Column(1)
End If
End Sub

Faltan controles para evitar duplicados, pero espero que esto te sirva.

Buena continuación.

Hola, para ts
lo siento, tuve problemas de conexión así que no pude responderles, y afortunadamente resolví mi problema ayer
tengo 2 listas:
en click lista1:

Liste2.AddItem Item:=Liste0, Index:=0
en click lista2:

Dim a As Integer
a = Liste2.ListIndex
If a >= 0 Then Liste2.RemoveItem a '''''' queremos eliminar el elemento de la segunda lista

y para recuperar los datos de la segunda lista y buscar el valor correspondiente en una tabla y almacenarlo :

Dim res, res1 As Recordset
Dim i As Integer
Dim didi, REQSQL, REQSQL1, a As String
ReDim TIdMuf(0 To Liste0.ListCount) As Integer
For i = 0 To Me.Liste2.ListCount - 1
a = Me.Liste2.Column(0, i)
a = "'" & a & "'"
REQSQL = "SELECT IDMUF,NUMPROMESS,DATEPROMESSE,MATRICULE FROM PROMESSE WHERE MATRICULE=" & a & " "
Set db = CurrentDb()
Set res = db.OpenRecordset(REQSQL)
TIdMuf(i) = res.Fields(0).Value
Next i

Pero ahora tengo otro problema: quiero mostrar el resultado de la consulta en una matriz.
pude almacenarlo en una tabla pero no pude mostrarlo.
Gracias
para TheMan: wi ana hiya dayra abonement m3a vba/access had l'été lol

en click list1:
Liste2.AddItem Item:=Liste0, Index:=0

de hecho el "clic lista1" es el clic en la primera lista su nombre: Liste0 , Liste2 es el nombre de la segunda lista

pero list0 no contiene datos

pou corriher la ligne Liste2.AddItem Item:=Liste0, Index:=0

par: List2.AddItem Item:=List1.List(0)

¿Eres tú esto?

hola,
presenta tu ejemplo para saber más

en click liste1:

Liste2.AddItem Item:=Liste0, Index:=0
dans click liste2:

dans cette partie, absence de chargement dans la liste LIST1 en plus Liste0 n'existe pas