Zone de liste VBA/Access [Résolu/Fermé]

saanaa 16 Messages postés samedi 29 mars 2008Date d'inscription 12 avril 2009 Dernière intervention - 24 juil. 2008 à 00:18 - Dernière réponse :  harhor
- 17 juin 2010 à 15:51
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
Afficher la suite 

9 réponses

Milou2211 49 Messages postés mardi 29 avril 2008Date d'inscription 14 septembre 2008 Dernière intervention - 24 juil. 2008 à 23:27
+1
Utile
1
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.
Cette réponse vous a-t-elle aidé ?  
cette réponse n'est pas correcte
...voir ceci
'---Vider la zone de liste
Do While Liste.ListCount > 0
Liste.RemoveItem (0)
Loop
'---
saanaa 16 Messages postés samedi 29 mars 2008Date d'inscription 12 avril 2009 Dernière intervention - 25 juil. 2008 à 11:14
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
saanaa 16 Messages postés samedi 29 mars 2008Date d'inscription 12 avril 2009 Dernière intervention - 25 juil. 2008 à 14:32
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
Archi-dessin 280 Messages postés samedi 19 avril 2008Date d'inscription 28 décembre 2009 Dernière intervention - 25 juil. 2008 à 16:54
+1
Utile
mais list0 ne contient pas de donnée
Cette réponse vous a-t-elle aidé ?  
Archi-dessin 280 Messages postés samedi 19 avril 2008Date d'inscription 28 décembre 2009 Dernière intervention - 25 juil. 2008 à 17:17
+1
Utile
pou corriher la ligne Liste2.AddItem Item:=Liste0, Index:=0

par: List2.AddItem Item:=List1.List(0)
Cette réponse vous a-t-elle aidé ?  
Archi-dessin 280 Messages postés samedi 19 avril 2008Date d'inscription 28 décembre 2009 Dernière intervention - 24 juil. 2008 à 18:48
0
Utile
salut,
poser votre exemple pour savoir plus
Archi-dessin 280 Messages postés samedi 19 avril 2008Date d'inscription 28 décembre 2009 Dernière intervention - 25 juil. 2008 à 12:32
0
Utile
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