Private Sub ScrollBar1_Change()
TxtPREPARATION = Format(CDbl(ScrollBar1) / 1440#, "h"" h ""mm"" mn""")
total
End Sub
Private Sub ScrollBar2_Change()
TxtREPOS = Format(CDbl(ScrollBar2) / 1440#, "h"" h ""mm"" mn""")
total
End Sub
Private Sub ScrollBar3_Change()
TxtCUISSON = Format(CDbl(ScrollBar3) / 1440#, "h"" h ""mm"" mn""")
total
End Sub
Sub total()
Dim HH As Double
HH = ScrollBar1 + ScrollBar2 + ScrollBar3
TxtTEMPSTOTAL = Int(HH / 60) & " h " & (HH Mod 60) & " mn"
End Sub