pb somme d'heures

Salut Marc,

Je viens de voir ta demande, en fait j'ai une solution mais le problème c'est que si ton total dépasse 23:59:59 ton total retombe à 00:00:00, donc si ce n'est pas le cas, voilà une solution (parmis tant d'autres je suppose).

Sub calculheure()
Dim cpt As Integer
Dim total As Date
cpt = 1
Do
total = total + Range("a" & cpt).Value
cpt = cpt + 1
Loop Until Range("A" & cpt).Value = ""
MsgBox "Heure(s) = " & Hour(total) & Chr(10) & _
" minute(s) = " & Minute(total) & Chr(10) & _
" Seconde(s) = " & Second(total)
End Sub

Tu peux omettre de déclarer total en date, mais tu devras utiliser le format (c'est le cas de le dire) suivant : format(total,"hh:mm:ss") pour l'affichage correct.

PS : n'oublie pas de mettre des heures dans quelques cellules sous format "01:05:54" par ex.

Bien à toi.

john

Re,

Voici le prg, comme ça tu peux tester de suite et voir le fonctionnement.

John

Merci j'ai fais comme montré !!! merci bcp