Boucle afin de comparer les dates de deux plages VBA

bonjour, bonjour

Je reviens vers ce généreux forum afin de vous demander votre aide.

Alors, j'ai deux colonnes (voir feuille nommée bb dans le fichier ci joint)

J'aimerai comparé ces deux dates et que si la date de la colonne D est inférieur/supérieur a celle de la colonne E qu'elle colore ces 2 cellules en Vert/Rouge, et que si il n'y a rien dans la colonne E a comparé qu'il passe à la prochaine ligne.

Le problème est que j'aimerais trouver cette solution en VBA et non en formule

j'ai commencé à écrire des choses mais je n'arrive pas à voir comment je pourrais incrémenter, Merci

Cordialement

un jeune débutant en vba

Bonjour,

Pourquoi vouloir passer par du VBA alors que la solution la plus simple serait par une MFC

Exemple:

Bonjour, bonjour

Merci M12 pour ta réponse.

La raison est simple, je veux en apprendre plus sur le VBA

J'ai u peu avancé sur le code. Et le problème désormais est que je n'arrive pas à lui dire de continuer la boucle (de comparaison des dates) si il rencontre un blanc dans la colonne E ... Est-ce que quelqu'un aurait une solution ?

re

Teste comme ceci

le problème c'est que tu inverse les lignes et les colonnes

Sub test()

Dim srow As Range, erow As Range
Dim bb As Worksheet
Dim MSN_count As Integer

Set bb = Worksheets("bb")
Set srow = bb.Range("D2")
Set erow = bb.Range("D10").End(xlUp)

MSN_count = bb.Range(srow, erow).Count

    For Line = 2 To MSN_count

        If IsDate(bb.Cells(Line, 5)) = "True" Then
           If bb.Cells(Line, 4).Value < bb.Cells(Line, 5).Value Then
                bb.Range(Cells(Line, 4), Cells(Line, 5)).Interior.Color = vbGreen
                Else
                If bb.Cells(Line, 4).Value > bb.Cells(Line, 5).Value Then
                    bb.Range(Cells(Line, 4), Cells(Line, 5)).Interior.Color = vbRed
                    Else
                    If IsDate(bb.Cells(Line, 5)) = "False" Then
                        bb.Range(Cells(Line, 4), Cells(Line, 5)).Interior.Color = vbWhite
                       End If
                   End If
               End If
        End If
    Next Line
End Sub

ô Grand M12

Je te remercie de ton code qui m'a bien aidé !!

J'ai réussi merci