Signaler

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

Posez votre question saanaa 16Messages postés samedi 29 mars 2008Date d'inscription 12 avril 2009 Dernière intervention - Dernière réponse le 17 juin 2010 à 15:51 par harhor
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 
Utile
+1
plus moins
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é ?  
harhor- 17 juin 2010 à 15:51
cette réponse n'est pas correcte
...voir ceci
'---Vider la zone de liste
Do While Liste.ListCount > 0
Liste.RemoveItem (0)
Loop
'---
Utile
+1
plus moins
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é ?  
Utile
+1
plus moins
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é ?  
Utile
+1
plus moins
mais list0 ne contient pas de donnée
Cette réponse vous a-t-elle aidé ?  
Utile
+1
plus moins
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é ?  
Utile
+0
plus moins
wach ntia hadi?
Utile
+0
plus moins
salut,
poser votre exemple pour savoir plus
Utile
+0
plus moins
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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !