Calculer un delai moyen de passage

Bonjour a tous

je souhaite calculer le délai moyen entre 2 passages pour un même login

structure du tableau

colonne A : date de présentation

colonne B : Login

J'ai environ 10000 entrées

j'ai fait un NBsi sur la colonne B afin de connaitre le nombre de présentations d'un même log mais cela ne m'avance pas beaucoup en fait

une idée ?

merci pour votre aide

En PJ un échantillon de ma base

Bonjour,

une solution via une macro

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1:c" & dl).Sort key1:=Range("B1"), order1:=xlAscending, key2:=Range("A1"), order2:=xlAscending, Header:=xlYes
    i = 2
    pl = i
    While i <= dl
        If Cells(i, 2) = Cells(i + 1, 2) Then
            If m = 0 Then m = Cells(i + 1, 1) - Cells(i, 1) Else m = (m + Cells(i + 1, 1) - Cells(i, 1)) / 2
            i = i + 1
        Else
            Cells(pl, 4) = m
            m = 0
            i = i + 1
            pl = i
        End If
    Wend
End Sub

bonjour

un essai sur le fichier de H2SO4 mais ....

cordialement

Effectivement nous ne calculons pas la même chose.

re

je crois que c'est parce que (d'après ton code ) tu divises toujours par 2

cordialement

bonsoir,

effectivement, erreur grossière. voici une correction

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1:c" & dl).Sort key1:=Range("B1"), order1:=xlAscending, key2:=Range("A1"), order2:=xlAscending, Header:=xlYes
    i = 2
    pl = i
    While i <= dl
        If Cells(i, 2) = Cells(i + 1, 2) Then
            m = (m + Cells(i + 1, 1) - Cells(i, 1))
            c = c + 1
            i = i + 1
        Else
            Cells(pl, 4) = m / c
            c = 0
            m = 0
            i = i + 1
            pl = i
        End If
    Wend
End Sub