Salut,
il doit y avoir + court mais pas le temps :
Private Sub CommandButton1_Click()
a = UserForm1.TextBox1.Value
b = UserForm1.TextBox2.Value
c = UserForm1.TextBox3.Value
d = UserForm1.TextBox4.Value
e = CInt(UserForm1.TextBox1.Value)
f = CInt(UserForm1.TextBox2.Value)
g = CInt(UserForm1.TextBox3.Value)
h = CInt(UserForm1.TextBox4.Value)
hdeb = a & 'H' & b
Range('A1000').Value = Left(hdeb, 2) & ':' & Right(hdeb, 2)
Range('A1') = hdeb
Range('A1').HorizontalAlignment = xlCenter
Range('A1').VerticalAlignment = xlCenter
deb = Range('A1').Value
hfin = c & 'H' & d
Range('B1000').Value = Left(hfin, 2) & ':' & Right(hfin, 2)
Range('B1') = hfin
Range('B1').HorizontalAlignment = xlCenter
Range('B1').VerticalAlignment = xlCenter
fin = Range('B1').Value
'Hdeb = Range('A1000').Value
hdeb = Int(e) & ':' & f & ':00'
hfin = g & ':' & h & ':00'
'hfin = Range('B1000').Value
aa = CDate(hdeb)
bb = CDate(hfin)
result = (bb - aa) * 24
Range('C1') = result
End Sub
Bye