Filtre sur intervalle de heure selon condition

Bonjour,

Je cherche une formule ou macro qui pourrait me permettre d effectuer des filtres rapide selon les conditions suivante:

Dans ma colonne J, J'ai des chiffres dont la police est en rouge et dans ma colonne C, Des date et heures .

J'ai besoin de sortir tous les chiffres en rouge espacer d'un minimum de 2H00.

Si le chiffres rouge suivant est inferieur au 2h00, on passe au suivant jusqu'à atteindre les 2H00 minimum.

Exemple:

colonne c colonne J nouvelle colonne

Ligne 2 13:25 2.3 2.3 (ok)

ligne 3 15:25 1.5 1.5 (ok car 2h)

Ligne 8 15:55 2.5 vide (NOK car 0:30)

Ligne 16 18:10 1.5 1.5 (ok car entre ligne 3 et 16 2:45)

ETC...

Merci pour votre aide

Bonjour,

Essayez ceci

Sub Marquage_2heures()
    Dim i As Long, DerLig As Long
    Dim DerVal As Double
    Application.ScreenUpdating = False
    Columns(11).ClearContents
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    DerVal = 0
    For i = 2 To DerLig
        If Cells(i, "J").Font.Color = RGB(255, 0, 0) And Round(Cells(i, "C") * 1 - DerVal, 6) >= Round(2 / 24, 6) Then
            Cells(i, "K") = "x"
            DerVal = Round(Cells(i, "C"), 6) * 1
        End If
    Next i
End Sub

Cdlt

Edit ; cela met un "x" dans la colonne K, il ne reste plus qu'à filtrer sur cette colonne

Oui c'est super.

C'est exactement ce que je rechercher

merci