MuscatMimi
XLDnaute Accro
Bonjour au Forum
Je désire Faire la Somme de quatre Tbx ,avec résultat dans une autre Tbx
Tbx5 = 19:00
+
Tbx6 = 08:00
+
Tbx7 = 10:00
+
Tbx8 = 05:00
=
Tbx1 42:00
Avec le code ci-dessous j'otiens que 12:00, comprends pas
et vous remercie a l'avance
Cordialement
Je désire Faire la Somme de quatre Tbx ,avec résultat dans une autre Tbx
Tbx5 = 19:00
+
Tbx6 = 08:00
+
Tbx7 = 10:00
+
Tbx8 = 05:00
=
Tbx1 42:00
Avec le code ci-dessous j'otiens que 12:00, comprends pas
J'attends vos réponses'--Calcul de la Somme des Tbx 5,6,7,8 dans Tbx1
Private Sub TTR()
Dim H5 As Date
Dim H6 As Date
Dim H7 As Date
Dim H8 As Date
On Error Resume Next
H5 = CDate(TextBox5.Value)
H6 = CDate(TextBox6.Value)
H7 = CDate(TextBox7.Value)
H8 = CDate(TextBox8.Value)
'--Calcul
TextBox1.Value = CDate(H5 + H6 + H7 + H8)
TextBox1.Value = Format(TextBox1, "h:mm")
End Sub
et vous remercie a l'avance
Cordialement