XL 2010 Cellule date vide, ne rien faire

madoupa

XLDnaute Nouveau
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é
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
 

Discussions similaires

Réponses
3
Affichages
2 K
Réponses
5
Affichages
679
Réponses
8
Affichages
676

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG