Comment puis-je créer une notification contextuelle de toutes mes dates sur

Bonjour le monde excellent.

Merci d'avance pour votre soutien et votre contribution.

Je ne sais pas si vous pouvez m'aider ...

Comment puis-je créer une notification contextuelle de toutes mes dates sur mes feuilles de calcul un jour avant et envoyer un rappel par courrier électronique le jour en cours.

Comment puis-je faire ça?

Veuillez consulter le fichier ci-dessous ...

Des chars encore ...

Hello. Excel Pros.

I am not sure if there is anyone who can help me with the task I am trying to fix.

How can you help me? What do you recommend me to do?

Thanks in advance...

Boujour Corriedtoppin, bonjour le forum,

Hé ! Mais en plus il parle l'étranger couramment !... Une chance que moi aussi je sois polyglotte depuis que je me suis fait enlevé les amygdales...

Une piste :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim DR As Date 'déclare la variable DR (Date de référence)
Dim DC As Date 'déclare la variable DC (Date de la Cellule)

DR = DateSerial(Year(Date), Month(Date), Day(Date)) 'définit la date de référence (date du jour)
For Each O In Sheets 'boucle 1 : sur tous les onglets du classeur
    Set PL = O.UsedRange 'définit la plage PL
    For Each CEL In PL 'boucle 2 : sur toutes ;les cellule CEL de la plage PL
        If IsDate(CEL.Value) = True And CEL.Value <> "" Then 'condition : si la valeur de la cellule CEL est une date et si la cellule CEL n'est pas vide
            DC = DateSerial(Year(CEL.Value), Month(CEL.Value), Day(CEL.Value)) 'définit la date DC de la cellule CEL
            Select Case DC 'agit en fonction de la date de la cellule DC
                Case Is = DR - 1 'cas ou la date est la veille de la date de référence
                    O.Activate 'active l'onglet O
                    CEL.Select 'sélectionne la cellule CEL
                    MsgBox "cette date correspond !" 'message (tu rajouteras le code adéquat)
                Case Is = DR 'cas ou la date est égale à la date de référence
                    O.Activate 'active l'onglet O
                    CEL.Select 'sélectionne la cellule CEL
                    MsgBox "envoyer l'email !" 'message
                    'ici le code pour envoyer l'email (fait une recherche dans le forum il y a des centaines d'exemples)
            End Select 'fin de l'action en fonction de la date de la cellule DC
        End If 'fin de la condition
    Next CEL 'prochaine cellule de la boucle 2
Next O 'prochain onglet de la boucle 1
End Sub

ThauTheme Passionné d'Excel

Merci pour votre soutien.

Merci mon Dieu pour Google. le multilingue est possible avec google ...

Si j'enlève mes amygdales. Je peux peut-être parler aux animaux ...

Merci encore pour le codage. Je travail.