bonjourà tous,
une solution via une fonction personnalisée minuteintervalle
à utiliser comme une fonction standard excel
=minuteintervalle(debutintervalle, finintervalle, tableau) où
debutintervalle est la valeur du début de l'intervalle
finintervalle est la valeur de fin de l'intervalle
tableau est un tableau de n ligne et 2 colonnes, la première contenant les dates et heures et la deuxième pour indiquer début et de fin de l'activité.
Function minuteintervalle(debutintervalle, finintervalle, tableau As Range)
t = tableau.Value
For i = 1 To UBound(t)
If tableau(i, 2) = 1 Then
If tableau(i, 1) < finintervalle And tableau(i + 1, 1) >= debutintervalle Then
minuteintervalle = Application.Min(finintervalle, tableau(i + 1, 1)) - Application.Max(debutintervalle, tableau(i, 1))
Exit Function
End If
If tableau(i, 1) > finintervalle Then Exit For
End If
Next i
minuteintervalle = 0
End Function