ALAN Morgan
XLDnaute Nouveau
Bonjour, j'ai ce tableau Excel ci dessous:
J'ai écrit un code VBA qui calcule la somme de plusieurs heures au format hh:mm, mais un petit problème car le total des heures ne s'affiche pas sous le format hh:mm;
Voici mon code vba:
Sub test()
Dim THeures, Hrs, result As Date
THeures = "00:00:00"
For res = 2 To 4
Hrs = Format(CDate(Range("B" & res).Value), "hh:MM")
MsgBox Hrs
THeures = CDate(THeures) + CDate(Hrs)
result = Format(CDate(THeures), "hh:mm")
Next res
Range("B6").Value = result
End Sub
Merci pour vos réponses. Ce projet est important pour moi.
J'ai écrit un code VBA qui calcule la somme de plusieurs heures au format hh:mm, mais un petit problème car le total des heures ne s'affiche pas sous le format hh:mm;
Voici mon code vba:
Sub test()
Dim THeures, Hrs, result As Date
THeures = "00:00:00"
For res = 2 To 4
Hrs = Format(CDate(Range("B" & res).Value), "hh:MM")
MsgBox Hrs
THeures = CDate(THeures) + CDate(Hrs)
result = Format(CDate(THeures), "hh:mm")
Next res
Range("B6").Value = result
End Sub
Merci pour vos réponses. Ce projet est important pour moi.