1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Private Sub UserForm_Initialize()
tintin = ""
mdtd = 0: dtdm = 0
dtdm = 0: dtfm = 0
Cells(7, 2) = dtfm
gestgraf.ListBox1.List = dtj
gestgraf.ListBox1.List(0) = "Dates"
gestgraf.ListBox1.Enabled = False
Range("I9:J27") = dtj
End Sub
Private Sub ListBox1_Click()
'Static dte As Long
ind = ListBox1.ListIndex
dtes = ListBox1.List(ind)
dtes = "/" & Right(dtes, Len(dtes) - 2) & "/"
an = Split(dtes, "/")(3): ms = Split(dtes, "/")(2): jr = Split(dtes, "/")(1)
dte = DateSerial(an, ms, jr)
If mdtd Then dtdm = dte
If mdtf Then dtfm = dte
Cells(1, 1) = dtdm: Cells(1, 2) = dtfm
tintin = "tintin"
: Cells(3, 5) = tintin
End Sub
Private Sub modifdatedéb_Click()
gestgraf.ListBox1.Enabled = True
mdtd = 1: mdtf = 0
End Sub
Private Sub modifdatefin_Click()
gestgraf.ListBox1.Enabled = True
mdtf = 1: mdtd = 0
End Sub
Private Sub CommandButton1_Click()
Unload gestgraf
End Sub |
Partager