XL 2010 Cellule date vide, ne rien faire

[madoupa]

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é

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

 

[sylvanu]

Bonsoir Madoupa,
Vous pourriez peut être faire :

If DateDiff("d", Date, CDate(CELL.Value)) < 0 And CELL.Value<>"" Then

Donc si la cellule est vide le IF ne sera pas exécuté.

 

[madoupa]

Bonsoir Madoupa,
Vous pourriez peut être faire :

If DateDiff("d", Date, CDate(CELL.Value)) < 0 And CELL.Value<>"" Then

Donc si la cellule est vide le IF ne sera pas exécuté.

Merci beaucoup