Zone de liste VBA/Access
Résolu/Fermé
saanaa
Messages postés
16
Date d'inscription
samedi 29 mars 2008
Statut
Membre
Dernière intervention
12 avril 2009
-
24 juil. 2008 à 00:18
harhor - 17 juin 2010 à 15:51
harhor - 17 juin 2010 à 15:51
A voir également:
- Zone de liste VBA/Access
- Liste déroulante excel - Guide
- Zone telechargement - Guide
- Liste de diffusion whatsapp - Guide
- Liste déroulante en cascade - Guide
- Combien y a-t-il de bateaux dans la zone de 1500 pixels de large et 500 pixels de haut à partir du coin supérieur gauche de cette image ? - Forum Graphisme
8 réponses
Milou2211
Messages postés
35
Date d'inscription
mardi 29 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2008
11
24 juil. 2008 à 23:27
24 juil. 2008 à 23:27
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.
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
Messages postés
16
Date d'inscription
samedi 29 mars 2008
Statut
Membre
Dernière intervention
12 avril 2009
1
25 juil. 2008 à 11:14
25 juil. 2008 à 11:14
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
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
saanaa
Messages postés
16
Date d'inscription
samedi 29 mars 2008
Statut
Membre
Dernière intervention
12 avril 2009
1
25 juil. 2008 à 14:32
25 juil. 2008 à 14:32
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
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
Messages postés
270
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
28 décembre 2009
25
25 juil. 2008 à 16:54
25 juil. 2008 à 16:54
mais list0 ne contient pas de donnée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Archi-dessin
Messages postés
270
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
28 décembre 2009
25
25 juil. 2008 à 17:17
25 juil. 2008 à 17:17
pou corriher la ligne Liste2.AddItem Item:=Liste0, Index:=0
par: List2.AddItem Item:=List1.List(0)
par: List2.AddItem Item:=List1.List(0)
Archi-dessin
Messages postés
270
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
28 décembre 2009
25
24 juil. 2008 à 18:48
24 juil. 2008 à 18:48
salut,
poser votre exemple pour savoir plus
poser votre exemple pour savoir plus
Archi-dessin
Messages postés
270
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
28 décembre 2009
25
25 juil. 2008 à 12:32
25 juil. 2008 à 12:32
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
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
17 juin 2010 à 15:51
...voir ceci
'---Vider la zone de liste
Do While Liste.ListCount > 0
Liste.RemoveItem (0)
Loop
'---