Comparaison format heure de 2 cellules

Bonjour à tous,

Je sollicite votrre aide pour créer une macro sous Excel, car je ne m'en sors pas malgré les nombreux sujets consultés.

Pour faire bref, la macro doit permettre de comparer l'heure de deux cellules n et n+1 (n étant le numéro de la ligne à comparer, n pouvant aller de 1 à 100 environ)

Si il y a au moins 40 minutes d'écart entre les deux cellules, alors il faut colorier la ligne de la cellule n+1 en rouge.

Je joins un fichier pour l'exemple.

Merci d'avance pour votre aide, car je suis vraiment bloqué !

Cordialement,

Thomas

Bonjour,

A tester :

Sub Comparer()

    Dim Plage As Range
    Dim I As Integer

    With Worksheets("Feuil1")

        Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))

    End With
    '1 heure pour Excel représente 1/24 donc, 40 minutes = 0.02777778
    For I = 1 To Plage.Rows.Count - 1

            If Abs(Plage(I, 1) - Plage(I + 1, 1)) > 0.02777778 Then

                Plage(I + 1, 1).Interior.ColorIndex = 3

            End If

    Next I

End Sub

Hervé.

Bonjour Hervé,

Merci beuacoup pour votre réponse, ca correspond exactement à ce que je veux.

Seulement, mon fichier est plus complexe que ca, car je vais avoir dans les deux premières colonnes plusieurs fois le petit tableau avec les cellules à comparer, et il faudra comparer les tableaux indépendamment des autres.

Je remet un nouveau fichier joint en exemple pour que ca soit plus clair.

Merci pour votre aide,

Cordialement,

Thomas

Quelqu'un a-t-il une solution pour mon problème svp ?

Bonjour

A tester

Bonjour Banzai64,

Ta solution me convient parfaitement , merci beaucoup !

Bonne journée,

Cordialement,

Thomas