1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub UserForm_Initialize()
Dim tablo() As String
Dim Temps, tx As Long
Me.Caption = " " & Feuil16.[A5] & " " & Feuil16.[B5] & " : " & Feuil16.[C5]
TextBox18.Value = Format(Date, "ddd dd mmmm yyyy")
TextBox19.Value = Date
If calcul("B", 1) > 0 Then
TextBox5 = Format(calcul("B", 1), "# ##0.000")
TextBox9 = Format(calcul("C", 1), "00")
TextBox10 = Format(calcul("D", 1), "00")
TextBox14 = Format(calcul("E", 1), "00")
TextBox16 = Format(calcul("F", 1), "00")
TextBox6 = Format(Val(TextBox9) + Val(TextBox10) + Val(TextBox14) + Val(TextBox16), "00")
End If
TextBox7 = calcul("G", 2)
TextBox13.Value = (Feuil13.[G1] / 12) - Feuil13.Cells(ActiveSheet.[Z1] + 2, 2).Value
tx = (Feuil13.[G1] / 12) - Feuil13.Cells(ActiveSheet.[Z1] + 2, 2).Value
TextBox13.Value = Format(Int(TextBox13.Value * 1000) / 1000, "0.000")
If TextBox13.Value < 0 Then |
Partager