Zone de liste VBA/Access

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

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

mais list0 ne contient pas de donnée

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

en faite le "clik list1"est le clik sur la 1ere liste son nom :Liste0 ,Liste2 est le nom de la 2eme liste

dans click list1:

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

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

salut pour ts
dézolé javai probleme de connexion donc jai pa pu vous repondre,et heureusement jai résolu mon probleme hier
j'ai 2 liste:
dans click list1:

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

Dim a As Integer
a = Liste2.ListIndex
If a >= 0 Then Liste2.RemoveItem a '''''' on veu suprimer l'element de la 2eme liste

et pour récuperer les données du 2eme liste et chercher la valeur correspondante dans une table et la stocker :

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

Mais maintenant jai un autre probleme: je veux afficher le résultat de la requette dans un tableau
j'ai pu la stocker dans une table mai jai pa pu l'afficher.
Merci
pour TheMan: wi ana hiya dayra abonement m3a vba/access had l'été lol

Bonsoir,

VOici une partie de réponse : Les éléments sélectionnés dans la liste 1 sont charés vers liste 2 sur évènement de ton choix
---------------1. Vider la liste 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. Alimenter liste 2---------
Private Sub charge_liste2()
If Me.liste1.ItemsSelected.Count > 0 Then
Me.Liste2.AddItem Me.liste1.Column(1)
End If
End Sub

Il manque des vontrpoles de doublons mais j'espère que ceci t'aidera.

Bonne continuation.

salut,
poser votre exemple pour savoir plus

wach ntia hadi?