Private Sub CA_Change(ByVal CAM As CAsso)
If IsMissing(CAM.Mode) Then Exit Sub
If CAM.Mode = "CalcLab" Then CA.ValeursVers TVL: GarnirLabel
End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
Select Case NbrLgn
Case 1: CBnAjouter.Enabled = False: CBnModifier.Enabled = True: CBnSupprimer.Enabled = True: Exit Sub
Case 0: CBnAjouter.Enabled = True: CBnModifier.Enabled = False: CBnSupprimer.Enabled = False
Case Else: CBnAjouter.Enabled = False: CBnModifier.Enabled = False: CBnSupprimer.Enabled = False
End Select
ReDim TVL(1 To 1, 1 To CL.Colonnes.Count)
LabRevenus.Caption = "": LabCharges.Caption = "": LabEndettement.Caption = "": LabMensualité.Caption = ""
CA.ValeursDepuis TVL
End Sub
Private Sub CL_BingoUn(ByVal Ligne As Long)
LCou = Ligne
TVL = CL.Lignes(LCou).Range.Value
GarnirLabel
CA.ValeursDepuis TVL
End Sub
Private Sub GarnirLabel()
Dim Revenus As Currency, Charges As Currency, Endettement As Currency
Revenus = TVL(1, 33) + TVL(1, 71) + TVL(1, 113) * 0.7 + TVL(1, 118) * 0.7 + TVL(1, 123) * 0.7 + TVL(1, 128) * 0.7 + TVL(1, 133) * 0.7
Charges = TVL(1, 16) + TVL(1, 54) + TVL(1, 83) + TVL(1, 89) + TVL(1, 95) + TVL(1, 101) + TVL(1, 107)
Endettement = Charges / Revenus
LabRevenus.Caption = Format(Revenus, "0 000.00 €")
LabCharges.Caption = Format(Charges, "0 000.00 €")
LabEndettement.Caption = Format(Endettement, "0.00 %")
If Endettement > 0.33 Then
LabEndettement.ForeColor = vbRed: LabEndettement.Font.Bold = True
Else
LabEndettement.ForeColor = 0: LabEndettement.Font.Bold = False
End If
LabMensualité.Caption = Format(Revenus * 0.33, "0 000.00 €")
End Sub