Résolu durée entre deux date

[aude2111]

Rebonjour

voila j'ai des date de souscription, des durée de mon contrat(en jours) et des date de survenance de sinistre
j'aimerais avoir une macro qui me dit si la garantit du contrat est terminé ou pas et qu'il me met la réponse en cellule 15 de la feuille 4(oui, non).

Sub Generation()


    Dim Date_Souscription As Range
    Dim Critere_Tarifaire2 As Range
    Dim Date_Auj As Date
    Dim DernLigne As Long
    Dim i As Integer
    
    With Worksheets("Sinistre")
        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set Critere_Tarifaire2 = .Range("P2:P" & DernLigne)
        Set Date_Souscription = .Range("G2:G" & DernLigne)
    End With
    
    Date_Auj = InputBox("entrez la date d'auj")
    
    For i = 2 To DernLigne
            If Day(Cells(i, 7).Value) - Cells(i, 16) > Cells(i, 2) The
                Sheets("Feuil4").Cells(i, 15).Value = NON
            Else
               Sheets("Feuil4").Cells(i, 15).Value = OUI
            End If
        'End If
    Next i


End Sub

merci de votre aide

 

[aude2111]

réussi

Sub test()

    Dim Date_Souscription As Range
    Dim CritereAs Range
    Dim Survenance As Range
    Dim DernLigne As Long
    Dim i As Integer
    
    With Worksheets("Sinistre")
        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set Critere = .Range("P2:P" & DernLigne)
        Set Date_Souscription = .Range("G2:G" & DernLigne)
        Set Survenance = .Range("U2:U" & DernLigne)
    End With
    
For i = 2 To DernLigne
If Cells(i, 21).Value - Cells(i, 7) > Cells(i, 16) Then
Sheets("Feuil4").Cells(i, 15).Value = "oui"
Else
Sheets("Feuil4").Cells(i, 15).Value = "non"
End If
Next i


End Sub