Bonsoir à tous
Merci LaurenTBT, Myta
Mais je crois bien que j'ai un prob dans le code ci-dessous, en fait ,j'additionne le total de lundi, mardi,mercredi,jeudi,vendredi dans la textbox6, Mais ça coince encore,
je sais plus...............
Private Sub Time6_Change()
Dim Somme As Single
TextBox1 = (CDate(Time2) - CDate(Time1)) + (CDate(Time4) - CDate(Time3)) + (CDate(Time6) - CDate(Time5))
TextBox1 = Format(TextBox1.Value, "hh:mm")
Somme = CDate(TextBox1.Value) * 24
TextBox6 = Format(Int(Somme), "00") & ":" & Format((Somme - Int(Somme)) * 60, "00")
End Sub
Private Sub ComboBox11_Change()
Dim Somme As Single
TextBox2 = (CDate(ComboBox3) - CDate(ComboBox1)) + (CDate(ComboBox5) - CDate(ComboBox4)) + (CDate(ComboBox11) - CDate(ComboBox6))
TextBox2 = Format(TextBox2.Value, "hh:mm")
TextBox6 = CDate(TextBox1) + CDate(TextBox2)
TextBox6 = Format(Int(Somme), "00") & ":" & Format((Somme - Int(Somme)) * 60, "00")
End Sub
Private Sub ComboBox27_Change()
Dim Somme As Single
TextBox3 = (CDate(ComboBox19) - CDate(ComboBox17)) + (CDate(ComboBox21) - CDate(ComboBox20)) + (CDate(ComboBox27) - CDate(ComboBox22))
TextBox3 = Format(TextBox3.Value, "hh:mm")
Somme = CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value) * 24
TextBox6 = Format(Int(Somme), "00") & ":" & Format((Somme - Int(Somme)) * 60, "00")
End Sub
Private Sub ComboBox43_Change()
Dim Somme As Single
TextBox4 = (CDate(ComboBox35) - CDate(ComboBox33)) + (CDate(ComboBox37) - CDate(ComboBox36)) + (CDate(ComboBox43) - CDate(ComboBox38))
TextBox4 = Format(TextBox4.Value, "hh:mm")
Somme = CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value) + CDate(TextBox4.Value) * 24
TextBox6 = Format(Int(Somme), "00") & ":" & Format((Somme - Int(Somme)) * 60, "00")
End Sub
Private Sub ComboBox59_Change()
Dim Somme As Single
TextBox5 = (CDate(ComboBox51) - CDate(ComboBox49)) + (CDate(ComboBox53) - CDate(ComboBox52)) + (CDate(ComboBox59) - CDate(ComboBox54))
TextBox5 = Format(TextBox5.Value, "hh:mm")
Somme = CDate(TextBox1) + CDate(TextBox2) + CDate(TextBox3) + CDate(TextBox4) + CDate(TextBox5) * 24
TextBox6 = Format(Int(Somme), "00") & ":" & Format((Somme - Int(Somme)) * 60, "00")
End Sub
Encore merci pour le coup de mains