Bonjour tous le monde,

J'aimerais que lorsque je clique sur une listbox plusieur valeur s'ajoute, je vous montre ma fonction, cependant quand je clique sur ma listebox, la fonction n'est même pas lancé, j'ai vérifié avec de msgbox

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
MsgBox ("rtgbzrb")
Dim A As Date
Dim B As Date
Dim db As Database
Dim rq As Recordset
Dim Chrono As Long
 
Chrono = Forms.Formulaire_Principal.CRP.Form.Chrono.Value
Set db = CurrentDb()
Set rq = db.OpenRecordset("SELECT Date_Debut, Date_Fin From Dates_Visite WHERE Chrono=" & Chrono)
 
If Not (rq.EOF) Then
  A = rq(0)
  B = rq(1)
End If
 
Dim date_tmp As Date
date_tmp = A
 
While date_tmp <= B
   Liste_Dates.AddItem (date_tmp)
   date_tmp = date_tmp + 1
Wend
merci et bon week end