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

Joe[PT]

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

Bonsoir Danreb,

Merci infiniment, je viens de tester et ça marche nickel !

Encore mille merci et bonne soirée.

Joe
 
Haut Bas