Rebonjour
j'ai une toute petite question je voudrais afficher un oui si la garanti de mon produit et fini et un non si y a toujours la garantie
donc ça va être si date de survenance -date de souscription > garantie alors afficher oui aussi non afficher non
mais voila les date de survenance et de souscription sont au format jj/mm/aa et la garantie en jours
voici mon code mais il me dis n importe quoi
Sub Generation()
Dim Date_Souscription As Range
Dim Critere_Tarifaire2 As Range
Dim Date_Survenance As Range
Dim DernLigne As Long
Dim i As Integer
With Worksheets("Feuil1")
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
Set Critere_Tarifaire2 = .Range("E2:E" & DernLigne)
Set Date_Souscription = .Range("B2:B" & DernLigne)
Set Date_Survenance = .Range("C2:C" & DernLigne)
End With
For i = 2 To DernLigne
' date survenance - date souscription > durée de garantie==>fini
If Cells(i, 3).Value - Cells(i, 2) > Cells(i, 5) Then
Sheets("Feuil2").Cells(i, 2).Value = "oui"
Else
Sheets("Feuil2").Cells(i, 2).Value = "non"
End If
Next i
End Sub