Bonjour le forum,

je viens vers vous pour un bête calcul d'heures. Supposons que j'ai des "heures" au format hh:mn:ss dans une colonne et que je veux calculer la durée cumulée de ces heures (et m'arrêter si je dépasse un certain nombre d'heures)

J'ai essayé le code ci-dessous :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
 
Dim Duree, Tps As Date
Dim i As Integer
 
Duree = "00:00:00"
 
For i = 1 To 39
 
    Tps = Format(Worksheets("T1").Cells(2 + i, 2), "hh:nn:ss")
    Duree = DateAdd("h", Duree, Tps)
 
Next i
 
MsgBox Duree
 
End Sub
mais il bug à la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Tps = Format(Worksheets("T1").Cells(2 + i, 2), "hh:nn:ss")
avez-vous une idée d'une syntaxe correcte qui me permettrait de résoudre ça?

NB : dans le bout de code ci-dessus, je n'ai pas encore inséré le fait d'arrêter le cumul des heures si je dépasse un certain nombre d'heures.

Merci pour votre aide.