Rechercher anniversaire du jour

Bonjour,

Je suis trésorier d'une grosse association. J'ai un fichier adhérents d'environ 800 membres. Je cherche à créer une macro me permettant de voir toutes les personnes ayant son anniversaire ce jour. Mon fichier comporte les colonnes : Nom, Prénom, Date de naissance, Etc...

Pourriez-vous m'apporter votre aide pour élaborer cette macro

D'avance merci

bonjour BITSCH,

je ne connais pas votre fichier, mais on peut utiliser ceci (en remplacant "date_Anniversaire" par la cellule contenant l'anniversaire d'une personne.

If Format(date_anniversaire, "ddmm") = Format(Date, "ddmm") Then
...
End If

Bonjour Bart

En fait je cherche à faire une macro ressemblant à celle ci-dessous en sachant que dans la colonne AG se trouve les Noms et colonne AO les dates de naissance au format (jj/mm/aaaa)

Merci pour l'aide

Sub a()
' Rech_Anniv Macro
Debut:
Aujour = Left(Date, 6)
'
Dim Aujour As Date
Set trouve = Cells.Find(What:=Aujour, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not trouve Is Nothing Then
trouve.Activate
Else
MsgBox "Pas d'anniversaire aujourd'hui !!", vbCritical, "Message d'erreur"
End If

DoEvents ' Donne le contrôle à d'autres processus.

End

Range("AG2").Select
End Sub

re,

normallement vos dates sont des valeurs numérique et le "Find" ne trouvera rien.

Sub Anniversaire()
     With Sheets("blad1")
          derligne = .Range("A" & Rows.Count).End(xlUp).Row
          For i = 2 To derligne
               If Format(.Range("B" & i).Value, "ddmm") = Format(Date, "ddmm") Then
                    s = s & vbLf & .Range("A" & i).Value & ", " & WorksheetFunction.Round((Date - .Range("B" & i).Value) / 365.25, 0) & " années"
               End If
          Next
          MsgBox IIf(s = "", "aucun", Mid(s, 2))
     End With
End Sub

Bart

Un grand merci à toi, cela fonctionne bien