Comment créer une alerte d'échéance de date sur excel

Bon alors

ALT+F11 pour ouvrir l'Editeur VBA
Insertion - Module
Copier et coller la macro dans la page blanche :

Sub dlc()
Dim Ligne As Long
'recherche de la dernière ligne remplie en col A de la 1ere feuille
Ligne = Sheets(1).Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 2 To Ligne
'Boucle sur les lignes depuis la 2 jusqu'à la dernière
' Si la date en col C est <= à la date d'aujourd'hui +30
If CDate(Range("C" & n)) <= Date + 30 Then
' alors on releve dans une variable mes le produit, le n° de tiroir et la dlc + un saut de ligne
mes = mes & Range("B" & n) & " Tiroir " & Range("D" & n) & " DLC ; " & Range("C" & n) & Chr(10)
End If
Next
' Affichage du message
MsgBox mes
End Sub

Ensuite dans l'arborescence à gauche double-clic sur This Workbook, copier-coller les 3 lignes qui suivent dans la page et fermer l'editeur

Private Sub Workbook_Open()
dlc
End Sub

A chaque ouverture du classeur ces lignes lanceront la macro dlc qui relèvera les produits à date dans les 30 jours
Pour l'instant il n'y a aucune date correspondant dans ton fichier exemple, mettre des DLC arrivant à échéance au 12/10 ou avant pour voir avant de fermer le classeur et de le rouvrir

Une fois le classeur ouvert tu peux relancer la macro en allant dans Developpeur - Macros - selectionner dlc et Exécuter

Cdlmnt
Via