Ecart entre 2 valeurs de temps sous excel 2000 [Résolu]

[wabo67]

Bonjour à tous,

Voila je possède un fichier excel avec un nombre X de temps rangé dans une colonne. Je voudrai connaitre la somme du temps entre chaque valeur.

16:24:55
16:24:56
16:24:57
16:24:58

Ici pour l'exemple (16:24:56-16:24:55)+(16:24:58-16:24:57)=00:00:02

Bien entendu dans le programme final il y aura environ 2000 temps

Si quelqu'un possède une formule magique.

Cordialement,

[ben_ghost]

heu ...


fonction datediff ?


mais en relisant me suis aperçu que tu parlais d'une formule... là je sais pas mais en macro c'est DateDiff... tu peux la transforme en cellule au pire

[ben_ghost]

En relisant, je vois pas en fait.

Tu peux faire un calcul en utilisant la fonction de formule "tempsval" mais je vois pas trop ce que tu veux faire ? tu a 4 dates donc tu as 3 intervalles de 1 secondes...

peux tu m'éclaircir sur ton besoin ?

[Michel_M]

bonjour,

avec 2000 lignes, j'ai préféré une macro plutot que ma 1° idée par matricielle

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const lig As Byte = 2 'ligne départ
Const col As Byte = 1 'colonne des temps
Sub somme_temps()
Dim fin As Integer
Dim T_in
Dim cumul As Double
 
fin = Cells(Cells.Rows.Count, 1).End(xlUp).Row
T_in = Application.Transpose(Range(Cells(lig, col), Cells(fin, col)))
 
For cptr = 1 To UBound(T_in) Step 2
    cumul = cumul + T_in(cptr + 1) - T_in(cptr)
Next
 
MsgBox "somme des différences de temps: " & Format(cumul, "hh:mm:ss")
End Sub

valable jusqu'à une différence < 24 heures

[GerardCalc]

Bonjour,

Sans doute + simple avec une macro, sinon par formule :

Code :

=SOMMEPROD(A2:A20*EST.PAIR(LIGNE(A2:A20))-A1:A19*EST.IMPAIR(LIGNE(A1:A19)))

ou

Code :

=SOMMEPROD(A2:A20*(MOD(LIGNE(A2:A20);2)=0)-A1:A19*(MOD(LIGNE(A1:A19);2)=1))

Ici pour la plage A1:A20. A noter le décalage d'une ligne entre les deux matrices (A2:A20 → A1:A19).
Si la plage de données commence en ligne paire, inverser les PAIR et IMPAIR ou =0 et =1.

A

[wabo67]

Merci Michel M, ta formule marche parfaitement, je suis entrain de me lancer dans un programme pour faire de la supervision active (reporting/monitoring).
Et cela fait 2 ans que je n'utilise plus trop VBA, donc je vais avoir du mal

Merci a tous pour vos aides