pb somme d'heures

[marc]

Bonjour à tous,

je me permets de vous solliciter car j'ai un petit probleme. Je débute en VBA !

J'arrive bien à faire toutes les boucles, etc ...

Mon problème est que je ne comprends pas comment récupérer la valeur des cellules sous un format correct. Le format actuel des cellules est "h:mm:ss" et quans j'utilise la propriété ".Value" sur une cellule je me retrouve avec un nombre décimal.

Ensuite je ne vois pas comment les additionner et afficher le résultat dans une cellule au même format...

Merci de vos réponses,

Marc

 

[john]

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

 

[john]

Re,

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

John

 

[marc]

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