Microsoft 365 Prévoir Date

[Electron24]

Bonjour le Forum,

Est il possible à Excel de signaler une tâche récurrente.
Je m'explique : Je souhaiterai que le 15 de chaque mois, Excel me met un message de rappel de la tâche à accomplir.
Est ce que cela est possible ?
J'ai bien trouvé une solution qui consiste à inscrire dans chaque cellule d'une colonne la date du 15 de chaque mois.
ensuite, je fais une comparaison avec la date d'aujourd'hui et si elle correspond, j'ai le message.
Mais c'est assez grossier.
D'avance merci

 

[Phil69970]

Bonjour @Electron24

Un essai avec une MFC

Tous les 15 du mois la cellule F2 sera en jaune et repassera en blanc le reste du mois.....

Mais bien sur il faut ouvrir le fichier le 15 du mois!!!!

 

[Electron24]

Bonsoir Phil69970

C'est une bonne avance, il faudrait qu'à l'ouverture du classeur un message s'affiche du genre "Relevé à Effectuer"
J'ai trouvé quelque chose qui m'avance :

' Dans la cellule A1
=AUJOURDHUI()

' Dans la cellule B1
=DATE(ANNEE(BB3);MOIS(BB3)+1;1) '1er jour du mois suivant

'Dans la cellule C1
=DATEDIF(BB3;BC3;"d") 'Nombre de jours restant entre A1 et B1

' Trouver la date d'échéance
=DATE(ANNEE(BB3);MOIS(BB3)+1;1)+14 'Ici le 15 du mois suivant en A1

Reste à trouver le message à afficher 1 jour avant

 

[TooFatBoy]

Hello,

Peut-être qu'un Classeur Anonymisé Représentatif serait utile.

 

[Phil69970]

@Electron24

Une variante toujours sans macro mais plus visuelle ....
Ne pas oublier qu'une macro fonctionne uniquement si l'utilisateur accepte les macros alors que la MFC fonctionne tout le temps .....

Pour tester tu modifies la date système au 15 mai et tu ouvres le fichier

 

[Electron24]

Hello,

Peut-être qu'un Classeur Anonymisé Représentatif serait utile.

Bonsoir TooFatBoy, je suis occupé à créer le classeur

 

[Phil69970]

@Electron24

Dans le code de la feuille à contrôler

Option Explicit

Sub TestDate()
Dim SysDate$, Annee%, Mois%, Jour%

SysDate = FormatDateTime(Date, 0)

Annee = Year(SysDate)
Mois = Month(SysDate)
Jour = Day(SysDate)

'Comme nous sommes le 17 j'ai mis 17 pour faire les tests
If Jour = 17 Then 'Mettre le numero du jour que tu veux
    MsgBox "Relevé à Effectuer", vbCritical, "Au boulot...."
End If
End Sub

Private Sub Worksheet_Activate()
TestDate
End Sub

Chaque fois que la feuille est activée tu auras un message si la condition est remplie (dans l'exemple tous les 17 de chaque mois)

Merci de ton retour

 

[Electron24]

Merci beaucoup phil69970. C'est un super travail qui me va très bien. Je l'adopte. Bonne soirée. Cordialement Electron24

 

[TooFatBoy]

Bonsoir TooFatBoy, je suis occupé à créer le classeur

Parfait 👍

Mais si l'ami Phil69970 arrive à te trouver une solution, tu n'auras même pas besoin de créer le classeur que je réclamais. 😉


[edit] Eh bien voilà qui est fait : le Grand Phil a résolu le problème avec brio ! 🤩 👍 [/edit]

 

[Electron24]

Merci beaucoup à vous deux pour votre aide.

 

[Phil69970]

@Electron24
On valide le post qui correspond à la solution attendu pas son propre post car par définition tu n'as rien trouvé sinon tu ne saurais pas venu posé ta question
La validation permet de faire remonter la solution juste après ta demande pour aider le futur lecteur.
Merci bien de rectifier .