Private Sub Oui_Click()
'variable C supprimée car inutile et prêtant à confusion avec cette lettre utilisée autrement
Dim L As Long
If C4 = "" Or C1 = "" Then Exit Sub
'nouveau test
If Ca > Ct Then
MsgBox "dépasse le montant dû", vbCritical, "Saisie invalidée"
Ca = "": Exit Sub
End If
L = IIf([Tr].Item(1, 1) = 0, 1, [Tr].Rows.Count + 1)
For n = 1 To 11: [Tr].Item(L, n) = Me("C" & n): Next
L = IIf([Td].Item(1, 1) = 0, 1, [Td].Rows.Count + 1)
[Td].Item(L, 1) = C5
[Td].Item(L, 2) = D1: [Td].Item(L, 3) = D2: [Td].Item(L, 4) = C4
[Td].Item(L, 5) = Cn: [Td].Item(L, 6) = Ct: [Td].Item(L, 7) = Ca
'plus d’utilisation du IIf
If Ca = "" Then [Td].Item(L, 8) = CCur(Ct) Else [Td].Item(L, 8) = CCur(CCur(Ct) - CCur(Ca))
Unload Me
ComboBox1 = ""
End Sub