Microsoft 365 Prévoir Date

Phil69970

XLDnaute Barbatruc

• 17 Avril 2025

• #2

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!!!!

 

Pièces jointes

• MFC sur date V1.xlsm

  51.8 KB · Affichages: 5

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 17 Avril 2025

• #3

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 :

VB:

' 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

 

Dernière édition: 17 Avril 2025

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 17 Avril 2025

• #4

Hello,

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 17 Avril 2025

• #5

@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

 

Pièces jointes

• MFC sur date V2.xlsm

  104 KB · Affichages: 7

Dernière édition: 17 Avril 2025

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 17 Avril 2025

• #6

TooFatBoy à dit:

Hello,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 17 Avril 2025

• #7

@Electron24

Dans le code de la feuille à contrôler

VB:

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

 

Vote positif 0 Vote négatif

Solution

Electron24

XLDnaute Occasionnel

• 17 Avril 2025

• #8

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 17 Avril 2025

• #9

Electron24 à dit:

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

Cliquez pour agrandir...

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]

 

Dernière édition: 17 Avril 2025

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 17 Avril 2025

• #10

Merci beaucoup à vous deux pour votre aide.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 17 Avril 2025

• #11

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

 

Vote positif 0 Vote négatif