Macro anniversaire du jour

Bonjour à vous... et oui c déjà moi...

je ne maitrise pas du tout les macros mais... j'en cherche une qui pourrait mettre un petit message à l'ouverture du fichier indiquant la date anniversaire du jour.

je joins le fichier :

dans la colonne B j'ai des dates d'anniversaire et j'aimerais quand j'ouvre le fichier le matin..avoir un interface précisant que c'est l'anniversaire de... si la date du jour correspond à une des dates de la colonne B.

exemple, nous sommes le 15/02/2024 et dans la colonne il y a, à la date du 15/02/2024 l'anniversaire de lg. j'aimerais donc trouver une macro qui m'indiquerait qu'ajdh c'est l'anniversaire de lg.

une idée pour moi ?

merci à vous.. :-)

ben

Bonjour ben25000, le forum,

A tester...

Cordialement,

Par exemple tu mets en K3 le texte ;

annif du jour :

En L3 ;

=SI($B$3:$B$69=AUJOURDHUI();INDEX($A$3:$A$69;EQUIV(AUJOURDHUI();$B$3:$B$69;0));"personne")

Et comme code sur le workbook ;

Private Sub Workbook_Open()
MsgBox "Bonjour, aujourd'hui c'est l'anniversaire de " & Range("L3")
End Sub

Sauver en xlsm.

Bonjour à tous,

Vite fait. Le code est dans le module de ThisWorkbook :

Private Sub Workbook_Open()
Dim t, ref, i&, s
   ref = Format(Date, "ddmm")
   t = Sheets("Feuil1").Range("a3:b" & Sheets("Feuil1").Cells(Rows.Count, "b").End(xlUp).Row)
   For i = 1 To UBound(t)
      If Format(t(i, 2), "ddmm") = ref Then s = s & vbLf & t(i, 1) & " ( " & (Year(Date) - Year(t(i, 2))) & " ans )"
   Next i
   If s = "" Then
      MsgBox "Aucun anniversaire aujourd'hui !", vbExclamation
   Else
      MsgBox "Aujourd'hui," & s, vbInformation
   End If
End Sub

Bonjour à tous.... un tt tt tt grand merci pour votre aide qui m'est tjrs aussi précieuse... mille mercis à vous.. :-)