Formule alerte date 60 jours avant

S

SA78

XLDnaute Nouveau

• 5 Juin 2017

• #16

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

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 5 Juin 2017

• #17

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

 

Pièces jointes

• Formationh.xls

  34 KB · Affichages: 102

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 5 Juin 2017

• #18

Merci bcp pour votre aide

 

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 5 Juin 2017

• #19

regarde en gras SVP

 

Pièces jointes

• Formationh (5).xls

  19 KB · Affichages: 68

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 5 Juin 2017

• #20

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

 

Pièces jointes

• Formationh (5).xls

  40 KB · Affichages: 69

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 5 Juin 2017

• #21

autre fichier

 

Pièces jointes

• Formationh (5).xls

  42.5 KB · Affichages: 35

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 6 Juin 2017

• #22

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juin 2017

• #23

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

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 6 Juin 2017

• #24

job75 à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 6 Juin 2017

• #25

Voilà mon tableau final

 

Pièces jointes

• image.jpg

  4.3 MB · Affichages: 27

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 6 Juin 2017

• #26

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

 

Pièces jointes

• image.jpg

  3.6 MB · Affichages: 35

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juin 2017

• #27

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juin 2017

• #28

Re,

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

A+

 

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 6 Juin 2017

• #29

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

 

Vote positif 0 Vote négatif

S

SA78

XLDnaute Nouveau

• 6 Juin 2017

• #30

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

 

Vote positif 0 Vote négatif