Formule alerte date 60 jours avant

[zenattitude]

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 😱

 

[SA78]

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

 

[letroubadour]

voici un fichier date en D , j'ai mis en Q un chiffre bidon qui doit correspondre au nombres de date dans le créneaux de 60j à tou d'automatiser ça

le troubadour

 

[SA78]

Merci bcp pour votre aide

 

[SA78]

regarde en gras SVP

 

[letroubadour]

j'ai répondu à ta question à quoi correspond le 15/06, le mieux c'est de mettre des dates dans le tableaux

 

[letroubadour]

autre fichier

 

[SA78]

désolé du retard de ma réponse , c'etait juste un exemple pour pouvoir calculer entre deux dates et plsu précisment la fin d'une période

 

[job75]

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 :

=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 :

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.

 

[SA78]

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 :

=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 :

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

 

[SA78]

Voilà mon tableau final

 

[SA78]

J ' Envoi des photos car je peux pas le faire sur l ordi et Je réponds sur un téléphone

Merci d avance

 

[job75]

Re,

Chez moi (Excel 2013) s'affiche d'abord la date puis, à la suite, le nombre de jours restants.

Votre version Excel ne va pas, je ne peux rien faire pour vous à ce sujet.

A+

 

[job75]

Re,

Et puis surtout utilisez mon fichier, avec les bonnes colonnes.

A+

 

[SA78]

J ai excel 2016
Dans tout les cas je vous remercie enorment pour tout c est vraiment gentil de votre part.
Une derniere chose si vous pouvez me dire a quoi correspond la formule c est a dire :
-i
Enorment

 

[SA78]

Vous ignorer ce que je peux changer ? Sur excel puis je avoir une capture ecran de ce que vous avez chez vous quand vous lancer le macros
Merci