Garder les lignes répondant à plusieurs conditions

Salut,

Merci de m'aider pour développer un code de traitement d'un tableau (voir image):

Dans le tableau (le vrais tableau contient des centaine de références) il y a 3 cas de figure:

1) Références dont les dates de lien sont toujours valides (en bleu)

2) Référence avec plusieurs lignes et qui contient des dates expirées et des dates encore valides(en rouge).

3) Référence avec des dates qui sont toutes expirées (en vert).

ma demande est une macro pour ne garder dans le tableau que la ligne de la dernière date d'expiration des références ui répondent

à la Troisième condition, et qu'elle supprime toute les lignes des références répondants aux deux autres condition.

tableau

Bonjour

Le seul problème est que nous sommes sur un Forum Excel et que tous ceux qui l'animent planchent sur des fichiers Excel et pas sur des images.

Cordialement

Ci-dessous un exemple j'ai mis dedans l'état de tableau avant et l'état souhaité après le développement de la macro, et merci beaucoup Mr.Amadeus.

Cordialement.

4exemple.xlsm (13.64 Ko)

Bonjour

en attendant mieux, un code en 2 temps

Sub supp()
For i = [C65000].End(xlUp).Row To 4 Step -1
    If Cells(i, 4).Interior.ColorIndex = 40 Or Cells(i, 4).Interior.ColorIndex = 24 Then Cells(i, 4).EntireRow.Delete
Next i
Call Restant
End Sub

Sub Restant()
Set plage = Range("D4", Range("D4").End(xlDown))
        a = Application.WorksheetFunction.Max(plage)
For i = [C65000].End(xlUp).Row To 4 Step -1
    If Cells(i, 4).Value < a Then Cells(i, 4).EntireRow.Delete
Next i
      End Sub

Cordialement

7exemple.xlsm (16.74 Ko)
Rechercher des sujets similaires à "garder lignes repondant conditions"