Private Sub ListBox1_Click()
Dim TDon(), TLBx(), N&, C&
LCou = TLgn(ListBox1.ListIndex + 1)
TDon = LO.ListRows(LCou).Range.Value
For C = 1 To 3: Me("TextBox" & C).Text = TDon(1, C): Next C
End Sub
Private Sub CommandButton1_Click()
Dim TDon(), C&
'If LCou = 0 Then ???
TDon = LO.ListRows(LCou).Range.Value
For C = 2 To 3: TDon(1, C) = CDate(Me("TextBox" & C).Text): Next C
LO.ListRows(LCou).Range.Value = TDon
End Sub