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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour