Alerte par un MsgBox

Version imprimable

14/05/2024, 11h32
pouldom

Alerte par un MsgBox

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.

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:

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:

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.

14/05/2024, 15h59
pouldom

1 pièce(s) jointe(s)

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

Pièce jointe 654600
14/05/2024, 18h26
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
14/05/2024, 18h56
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
14/05/2024, 19h03
Valtrase

Citation:

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.
14/05/2024, 19h28
pouldom

Bonsoir,

OK et merci encore pour votre aide.
Vous êtes bien aimable.

Cordialement
Dom