Posez votre question Signaler

Zone de liste VBA/Access [Résolu]

saanaa 16Messages postés samedi 29 mars 2008Date d'inscription 12 avril 2009Dernière intervention - Dernière réponse le 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
Lire la suite 
Réponse
+1
moins plus
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.
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
'---
Répondre
Ajouter un commentaire
Réponse
+1
moins plus
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
Ajouter un commentaire
Réponse
+1
moins plus
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
Ajouter un commentaire
Réponse
+1
moins plus
mais list0 ne contient pas de donnée
Ajouter un commentaire
Réponse
+1
moins plus
pou corriher la ligne Liste2.AddItem Item:=Liste0, Index:=0

par: List2.AddItem Item:=List1.List(0)
Ajouter un commentaire
Réponse
+0
moins plus
Ajouter un commentaire
Réponse
+0
moins plus
salut,
poser votre exemple pour savoir plus
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Ce document intitulé «  zone de liste VBA/Access  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

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

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.