Discussion :

[pouldom]

Bonjour,

J'ai tableau Excel avec les dates anniversaire à souhaiter.
Je voudrais que la date de l'anniversaire un Msg Boxe s'affiche à l'ouverture du fichier avec un message de rappel.
Pouvez vous m'aider svp et m'expliquer la procédure à faire.

Mon tableau:

Calendrier des Anniversaires Date du jour 14/05/2024
Nom Date Naissance Date anniversaire Age Échéance
Claudine jeudi 12 janvier 1950 vendredi 12 janvier 2024 74 ans 😪 Date échue
Michel mercredi 14 janvier 1959 dimanche 14 janvier 2024 65 ans 😪 Date échue
Pascal dimanche 17 janvier 1960 mercredi 17 janvier 2024 64 ans 😪 Date échue


Merci beaucoup.

Dom.

[Valtrase]

Bonjour,

Si l'on considère un tableau vt_Clients sur la feuille sys_Datas avec une colonne Date anniversaire alors :

Dans le module de ThisWorkbook, Procédure Open coller ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
   MsgBox Current.DisplayBirthday
End Sub

Dans un module standard que l'on nomme par exemple Current coller ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'@Description "Renvoie les dates d'anniverssaires formatées"
Public Function DisplayBirthday(Optional ThisDate As Date) As String
    Dim itemRange As Excel.Range
    For Each itemRange In sys_Datas.Range("vt_Clients[Date anniversaire]")
        With itemRange
            If Month(.Value) = Month(Date) And Day(.Value) = Day(Date) Then
                Dim TempString As String
                TempString = TempString & .Offset(0, -1).Value & Space(2) & DateDiff("yyyy", .Value, Date) & " ans" & vbNewLine
            End If
        End With
    Next itemRange
 
    If TempString > vbNullString Then
        DisplayBirthday = "Bonjour, aujourd'hui c'est l'anniversaire de :" & vbNewLine & TempString
    Else
        DisplayBirthday = "Bonjour, pas d'aniverssaire à fêter aujourd'hui !"
    End If
End Function

Cela devrait faire le job.

[pouldom]

Bonjour,

Merci pour votre réponse.
J'ai collé les codes et ça ne fonctionne pas.
Je me permet de vous joindre le fichier.
Merci.
Cordialement

Dom

Anniversaire essai.xlsm

[Valtrase]

Bonjour,
Attention pour les feuilles il y a le nom et le CodeName dans l'environnement VBE.
Vous avez oublié de copier la procédure Workbook_Open.

Pour ma part j'en ai fait une aussi mettre Date anniversaire en lieux et place de Date de naissance.

Pièce jointe 654605

[pouldom]

Bonjour,

Je vous remercie c'est super.
Merci pour votre aide.
Une question si je peux me permettre et à laquelle je n'ai trouvé aucune réponse.
Dans les MsgBox peut on modifier polices de caractère ( c'est par curiosité tout simplement).

Encore merci.
Cordialement.
Dom

[Valtrase]

Dans les MsgBox peut on modifier polices de caractère

Non mais il existe pas mal de boites de messages personnalisées sur la toile.