[Résolu] Affichage d'un message tous les 1er jour de chaque trimestre

Joe[PT]

XLDnaute Junior
Bonjour à tous,

Je suis en train de chercher à afficher une MsgBox de rappel qui se déclencherait tous les 1er jour de chaque trimestre... mais j'avoue ne pas trouver comment m'y prendre. Je sais déclencher un message une date précise, mais tous les 1er jour de chaque trimestre... ?

Si vous avez des conseils à me prodiguer, je suis preneur !

D'avance, merci.

Joe
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
Re : Affichage d'un message tous les 1er jour de chaque trimestre

Bonjour.

Code:
=DATE(ANNEE($A1);ENT((MOIS($A1)-1)/3)*3+4;1)
VB:
.FormulaR1C1  = "=DATE(YEAR(RC1),INT((MONTH(RC1)-1)/3)*3+4,1)"
Il ne reste plus qu'à vérifier à l'ouverture du classeur que la date est inférieure à cette date, et sinon émettre le message puis mettre en A1 la date du jour comme date de dernière émission du message.

Ou bien :
VB:
Dim DernDate As Date, ProchDate As Date
DernDate = Feuil1.[A1].Value
ProchDate = DateSerial(Year(DernDate), ((Month(DernDate) - 1) \ 3) * 3 + 4, 1)
If Date >= ProchDate Then
   MsgBox "Avertissement"
   Feuil1.[A1].Value = Date
   End If
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26