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

[Joe[PT]]

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

 

[Dranreb]

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

Bonjour.

=DATE(ANNEE($A1);ENT((MOIS($A1)-1)/3)*3+4;1)

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

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

 

[Joe[PT]]

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