date alarme

[noon]

bonjour a tous

je voudrais si il est possible de declencher une alarme (visuel)
par rapport a une date

exemple:
je mets dans une cellule le 23/07/04 ( mon fichier excel fermé)
quand arrive cette date puis je etre prevenus par un visuel ??

merci

 

[Abel]

Bonjour noon,

Essaie le code suivant, à placer dans ThisWorkbook :

Private Sub Workbook_Open()
Plage = Range("b2:b5")
i = 2
For Each cel In Plage
If cel <= Date Then
Range("b" & i).Select
MsgBox "Attention, la date de péremption est atteinte", 48
End If
i = i + 1
Next
End Sub

En admettant que tes dates soient dans la plage B2 à B5.

Evidemment il faut modifier légèrement le code si le fichier est ouvert une fois par mois (par exemple). On risque de se retrouver avec plein de messages.
On peut placer un "exit sub" avant le "end if" si on ne veut pas avoir x fois l'avertissement.

En espérant que cela te dépannera.

Abel