zone de liste VBA/Access Résolu/Fermé

Question

Salut à tous 

je cherche de l'aide pour VBA/Access 
en faite je veux à partir d'une zone de liste choisir des elements en cliquant sur l'element choisi , les afficher dans une autre zone de liste et les récuperer.
 
merci à tous

theMan · Answer

wach ntia hadi?

Archi-dessin · Answer

salut,
poser votre exemple pour savoir plus

Milou2211 · Answer

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.

saanaa · Answer

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

Archi-dessin · Answer

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

saanaa · Answer

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

Archi-dessin · Answer

mais list0 ne contient pas de donnée

Archi-dessin · Answer

pou corriher la ligne Liste2.AddItem Item:=Liste0, Index:=0 

par: List2.AddItem Item:=List1.List(0)

Zone de liste VBA/Access

8 réponses

Discussions similaires