Bonjour,

j'aimerais mettre une évênement sur simple clic dans une listbox qui en mettrait une autre à jour :
par exemple je clique sur une entrée dans ma listbox 1 et la listbox 2 se met à jour. Le problème c'est que mon code ne reconnait pas la sélection sur simple clic, je suis obligé de mettre un double clic pour que ca fonctionne. Auriez vous des pistes ?

Mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim sql As String, id_demand As String
 
 
For Each ver In Form_F_qualif_0.L_Demand.ItemsSelected
    id_demand = CInt(Form_F_qualif_0.L_Demand.ItemData(ver))
Next ver
 
sql = "SELECT T_Mails.SUJET as sujet, T_Mails.SENDER as sender, T_Mails.id_outlook as id_outlook from T_Mails "
sql = sql & " where ID_Demande = " & id_demand & ";"
 
Form_F_qualif_0.L_mails_demande.RowSource = sql
Form_F_qualif_0.L_mails_demande.Requery