La somme du calcul des heures n'affiche pas le format hh:mm

[ALAN Morgan]

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.

 

[pierrejean]

Bonjour ALAN Morgan

Vois si tu peux t'inspirer de ceci

 

[Dranreb]

Bonjour.
Il ne faut jamais essayer de mettre dans une cellule ce que vous voulez y voir, sauf si c'est du texte. Parce que si ce n'en est pas, ou si c'est transformé automatiquement en autre chose par Excel, ce que vous y verrez dépendra du format d'édition de la cellule. Donc mettez y simplement THeure, mais modifiez le format de cellule pour que ce soit affiché comme vous voulez.
Edir: Bonjour Pierrejean.

 

[ALAN Morgan]

Bonjour ALAN Morgan

Vois si tu peux t'inspirer de ceci

Merci pour votre réponse qui resoud le problème en moitié, mais lorsque le nombre d'heure est supérieur à 24 Heures??? le réponse n'est plus juste.

 

[ALAN Morgan]

Bonjour ALAN Morgan

Vois si tu peux t'inspirer de ceci

Par exemple:

 

[Dranreb]

Mettez .NumberFormat = "[hh]:mm"

 

[Jacky67]

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.

Bonjour à tous
Essaye comme ceci

Sub test()
[b6] = [SUM(b2:b4)]
[b2:b6].NumberFormat = "[hh]:mm"
End Sub

 

[ALAN Morgan]

Bonjour ALAN Morgan

Vois si tu peux t'inspirer de ceci

Merci beaucoup, mon pb a été résolu...

 

[ALAN Morgan]

Bonjour à tous
Essaye comme ceci

Sub test()
[b6] = [SUM(b2:b4)]
[b2:b6].NumberFormat = "[hh]:mm"
End Sub

Merci beaucoup, mon pb a été résolu grâce à vous ...

 

[ALAN Morgan]

Mettez .NumberFormat = "[hh]:mm"

Merci beaucoup, mon pb a été résolu grâce à vous ...

Mettez .NumberFormat = "[hh]:mm"

Merci beaucoup, mon pb a été résolu grâce à vous ...

 

[ALAN Morgan]

Merci beaucoup, toute ma reconnassance; mon pb a été résolu grâce à vous ...