Pop up alerte sur Excel?

Bonjour.

Il va falloir passer par VBA. Pour ça, ouvre l'éditeur VBA dans ton fichier Excel en appuyant sur ALT+F11. Dans la fenêtre qui s'est ouverte double-clique sur "ThisWorkbook" dans l'arborescence du projet à gauche, et dans la fenêtre de texte (vide pour l'instant) qui s'est ouverte, copie/colle ceci :

Private Sub Workbook_Open()

Dim MaDate As Date

MaDate = Worksheets("LeNomDeMaFeuille").Range("A1")

If DateDiff("d", DateValue(MaDate), Now()) > 14 Then

MsgBox ("Mon message.")

End If

End Sub

Il faut changer le nom de la feuille et la case dans lesquels il faut chercher la date à comparer, dans ton exemple remplace A1 par E603 donc, et de même pour le nom de ta feuille. Remplace également le message dans MsgBox, c'est le message qui s'affichera.

Ce code s'execute à chaque ouverture du fichier. Et tu seras alerté quand il y aura strictement plus de 14 jours entre la date donnée et aujourd'hui. Tu peux changer le 14 et le > en autre chose si tu veux, et tu peux également changer pour compter autre chose que des jours : le premier paramètre de DateDiff est "d", il signifie "en jours", mais tu peux compter autrement (cf. http://msdn.microsoft.com/fr-fr/library/%E2%80%A6 ).

Voilà, j'espère que ça répond à ton besoin.

Cordialement.

EDIT : Yahoo Q/R remplace la fin de la 3è ligne de code par "...", je ne sais pas pourquoi. Corrige avant de mettre en application le code : Range("A1")

Exemple dans A1 calcul date

Sub test()

If Range("A1") > 3 Then MsgBox "Attention !!! Dépassement de valeur"

End Sub

Autre et source

http://www.developpez.net/forums/d597359/macros-vb...

Mais lis les conclusions et demande sur le site