M
madoupa
Guest
Bonsoir tout le monde
j'ai un code qui m'affiche les produits périmés mais il prend aussi les cellules vides comme produits périmés
1-produit a 21/10/2022
2-produit b 21/12/2022
3-produit c
4-produit d 01/01/2023
Svp je veux le modifier pour afficher que les produit périmé
j'ai un code qui m'affiche les produits périmés mais il prend aussi les cellules vides comme produits périmés
1-produit a 21/10/2022
2-produit b 21/12/2022
3-produit c
4-produit d 01/01/2023
Svp je veux le modifier pour afficher que les produit périmé
VB:
Dim j As Integer
Dim CELL As Range, mes As String, DerLig As Long
With ThisWorkbook.Worksheets("Péremption") ' Le classeur où sont les données de dates d'expiration
For Each CELL In .Range("G2:G700").Cells
If DateDiff("d", Date, CDate(CELL.Value)) < 0 Then
mes = mes & Chr(149) & " " & CELL.Offset(, -4).Value & Space(1) & CELL.Offset(, -1).Value & _
" Expire dans " & DateDiff("d", Date, CDate(CELL.Value)) & " jours" & Chr(13) & vbCr
End If
Next CELL
MsgBox "ALERTE PEREMPTION AU " & Format(Now, "dd/mm/yyyy") & Chr(10) & Chr(10) & Chr(10) _
& Chr(13) & mes & vbCrLf & vbclrf, vbCritical, "Alert"
End With
End If