Formule alerte date 60 jours avant

zenattitude

XLDnaute Nouveau
Bonjour,

Je suis nouveau ici et je suis un novice en Excel, je suis gestionnaire de matériel médical, et je voudrai mettre une alerte 60 jours avant l'expiration de mon produit, c'est placé en cellule E
Aidez moi svp :eek:
 

SA78

XLDnaute Nouveau
Merci bcp mais comme je t ai dit je veux qu excel m'indique d'une part les jours restant avant la fin de la période et de l autre je souhaiterai installer un message d 'alerte à l'ouverture du fichier .
Je te remercie bcp pour ton aide et pour tout le mal que tu te donne . Mais comme tu vois je veux un truc précis pour mon tableau.
en plus cette formule ci : =SI(E1-AUJOURDHUI()<60;"Reste " & E1 -AUJOURDHUI() & " jours";"")
que me la fasse comprendre en me la détaillant par ex : SI E1-Aujourd'hui <60 (c'est a dire il reste moins de 60 jours ) aLors "Reste"
sinon : E1-Aujourd'hui &"jours"

MERCI de VOTRE AIDE
 

job75

XLDnaute Barbatruc
Bonjour SA78, letroubadour,

Pas très cohérent tout ça...

Une alerte n'a de sens que si l'on compare la date d'échéance à la date du jour.

Et cette date du jour doit bien sûr être dans la période d'essai.

Formule en E2 du fichier joint :
Code:
=REPT(D2-AUJOURDHUI()&" jour"&REPT("s";D2-AUJOURDHUI()>1);(AUJOURDHUI()>=C2)*(AUJOURDHUI()<=D2))
Je préfère utiliser REPT plutôt que SI, cela prend moins d'octets en mémoire.

Une alerte par macro n'est pas vraiment utile mais si l'on y tient :
Code:
Private Sub Workbook_Open()
Dim t, i&, n&, mes$
t = [A1].CurrentRegion.Resize(, 5) 'matrice, plus rapide
For i = 2 To UBound(t)
  If t(i, 5) <> "" Then n = n + 1: mes = mes & vbLf & "Echéance " & t(i, 4) & "   Reste " & t(i, 5)
Next
MsgBox Mid(mes, 2), , "  " & n & " périodes d'essai en cours"
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
Bonne journée.
 

Pièces jointes

  • Alertes(1).xls
    76 KB · Affichages: 32

SA78

XLDnaute Nouveau
Bonjour SA78, letroubadour,

Pas très cohérent tout ça...

Une alerte n'a de sens que si l'on compare la date d'échéance à la date du jour.

Et cette date du jour doit bien sûr être dans la période d'essai.

Formule en E2 du fichier joint :
Code:
=REPT(D2-AUJOURDHUI()&" jour"&REPT("s";D2-AUJOURDHUI()>1);(AUJOURDHUI()>=C2)*(AUJOURDHUI()<=D2))
Je préfère utiliser REPT plutôt que SI, cela prend moins d'octets en mémoire.

Une alerte par macro n'est pas vraiment utile mais si l'on y tient :
Code:
Private Sub Workbook_Open()
Dim t, i&, n&, mes$
t = [A1].CurrentRegion.Resize(, 5) 'matrice, plus rapide
For i = 2 To UBound(t)
  If t(i, 5) <> "" Then n = n + 1: mes = mes & vbLf & "Echéance " & t(i, 4) & "   Reste " & t(i, 5)
Next
MsgBox Mid(mes, 2), , "  " & n & " périodes d'essai en cours"
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
Bonne journée.
Merci bcp pour votre aide voilà ce qui s affiche quand Je programme le macros :

" reste 06/06/2017 " une date moi j aurai souhaite un chiffre par ex Reste 15 jours " pouvez vous me dire ce que je dois changer s il vous plait dans le message box merci
 

Discussions similaires

Réponses
7
Affichages
283
Réponses
5
Affichages
292