Formule alerte date 60 jours avant

SA78

XLDnaute Nouveau
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

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.
 

Fichiers joints

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
 

SA78

XLDnaute Nouveau
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
 

Fichiers joints

job75

XLDnaute Barbatruc
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+
 

SA78

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

job75

XLDnaute Barbatruc
Bonjour SA78, le forum,

On se demande bien ce que vous venez faire sur ce forum SA78.

Vous débarquez dans cette discussion comme un cheveu sur la soupe sans jamais saluer les gens.

Vos outils sont inadaptés "moi je ne suis pas sur excel","je peux pas le faire sur l ordi et Je réponds sur un téléphone".

Enfin vous semblez ne pas vouloir (ou ne pas pouvoir) ouvrir les fichiers qu'on vous envoie et vous passez votre temps à faire des copies d'écran sans intérêt.
 

SA78

XLDnaute Nouveau
Bonjour ,
Je m excuse si je semble déranger et pour mon impolitesse .
Je suis juste quelqu un qui est novice en Excel et qui souhaitait se renseigner et avoir une aide sur mon tableau Excel.
Je n ai pas voulu déranger en rien. En effet je ne peux pas ouvrir les fichiers que vous m'envoyez car le tableau dont j avais besoin se trouve sur EXcel 2016 .
Je vous remercie pour votre aide et excuser moi encore si je semble perturber ce forum .
Avec les captures ecrans j ai souhaité vous montrer se que j obtenais .
Je vous suis reconnaissant de votre aide dans tous les cas .

Bonne soirée
 

job75

XLDnaute Barbatruc
Re,

Et vous nous quittez comme ça ? Votre visite n'aura donc servi à rien.

Avec Excel 2016 le fichier .xls de mon post #23 doit normalement s'ouvrir.

A tout hasard je le redépose converti en .xlsm.

A+
 

Fichiers joints

SA78

XLDnaute Nouveau
Bonsoir,
Non je ne vous quitte pas et je vous remercie .
Je Vais essayer et vous en dire des nouvelles .

Je vous remercie
Bonne soirée
 

SA78

XLDnaute Nouveau
Bonjour,
Après avoir testé votre tableau celui s'ouvre bien et fonctionne bien et je vous en remercie.

toutefois, j'aurai aimé savoir si dans le message d'alerte que vous avez rentré dans le macro vous avez programmé la colonne E, et je voulais savoir comment peut on programmer une cellule dans la mesure ou j'ai rajouté des colonnes et maintenant ma colonne "Jours Restant" se trouve en G .
je vous envoie mon tableau pour plus de précision.
Bonne Après-midi
Je vous remercie
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour SA78,
Après avoir testé votre tableau celui s'ouvre bien et fonctionne bien
A la bonne heure ! Mais pourquoi y avait-il un problème avant ???

Avec les colonnes modifiées il faut modifier celles du tableau t dans la macro, ce n'est pas sorcier :
Code:
Private Sub Workbook_Open()
Dim t, i&, n&, mes$
t = [A1].CurrentRegion.Resize(, 7) 'matrice, plus rapide
For i = 2 To UBound(t)
  If t(i, 7) <> "" Then n = n + 1: mes = mes & vbLf & "Echéance " & t(i, 6) & "   Reste " & t(i, 7)
Next
MsgBox Mid(mes, 2), , "  " & n & " période(s) d'essai en cours"
End Sub
A+
 

Fichiers joints

SA78

XLDnaute Nouveau
bonjour ,
aucune idée pourquoi il ne s'ouvrait pas . en Tout cas je vous remercie énormément. Enfin sa marche et j'ai eu le résultat souhaité.

Bonne après-midi
Cordialement
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas