Private Sub CBnValider_Click()
If LCou = 0 Then
CA.ValeursVers TVL
CL.ValeursVers TVL
TVL(1, 7) = "=TODAY()-[@Date]"
CL.Lignes.Add.Range.Value = TVL
CopieTVLEC "Ajout"
CL.Actualiser
Else
CopieTVLEC "Ancien"
CA.ValeursVers TVL
TVL(1, 7) = "=TODAY()-[@Date]"
CL.Lignes(LCou).Range.Value = TVL
CopieTVLEC "Modif"
End If
End Sub
Private Sub CBnSuppr_Click()
If LCou = 0 Then Exit Sub
CopieTVLEC "Suppr"
CL.Lignes(LCou).Delete
CL.Actualiser
End Sub
Private Sub CopieTVLEC(ByVal Code As String)
Dim TCopie()
TCopie = TVL
ReDim Preserve TCopie(1 To 1, 1 To 9)
TCopie(1, 8) = Code
TCopie(1, 9) = Now
LOtEC.ListRows.Add.Range.Value = TCopie
End Sub