Calcul de dates

Bonjour à tous,

Je vous expose mon petit problème!

j'ai une base de données qui comporte des dates en colonne C et une durée en colonne D qui mentionne un préavis!

je voudrais faire en sorte qu'en combinant ces deux éléments une alerte se créer (je suppose sous forme de mise en forme conditionnelle) environ 3 mois avant la date limite de préavis!

merci pour vos réflexions et suggestions!

Bonjour Massimo,

Une proposition exemple à adapter:

Ici la base est sur la feuille "bd", les dates en colonnes 3 et 5 commencent à la ligne 2.

(Edit : la colonne 5 est ici exprimée en jours)

Le code est à placer dans le module ThisWorkbook.

A chaque ouverture la sub va faire le test et colorier la colonne 5 en rouge si l'on a dépassé 90 jours avant la date limite. Cordialement

Jules

Option Explicit

Private Sub Workbook_Open()
    Call Alertes
End Sub

Private Sub Alertes()
Dim s As Worksheet, i&
Set s = Worksheets("bd")
    s.Columns(5).Interior.Pattern = xlNone
    For i = 2 To s.Cells(Rows.Count, 3).End(xlUp).Row
        If Now + 90 >= s.Cells(i, 3) + s.Cells(i, 5) Then s.Cells(i, 5).Interior.Color = 255
    Next i
End Sub

Bonjour

Voir fichier

Cordialement