Recherche date anniversaire

Bonjour à tous !

Voici mon problème :

En colonne A j'ai une liste de noms (700)

En colonne B les prénoms

En colonne C les dates de naissance

Comment puis-je comparer la date d'aujourd'hui (jour et mois) avec les dates de naissance de la colonne C et afficher les noms qui correspondent ? (Tous ceux dont l'anniversaire est aujourd'hui)

Merci d'avance à tous ceux qui auront participé à résoudre mon problème.

Roland

Bonjour,

Une solution

=SI(ET(JOUR(C1)=JOUR(AUJOURDHUI());MOIS(C1)=MOIS(AUJOURDHUI()));"ANNIVERSAIRE";"")

A+

Edit Amadéus: Bonjour Frangy.

et comme Roland veut le nom, il remplacera "ANNIVERSAIRE" par A1

Bonjour,

Bonjour frangy...

une proposition en vba

Option Base 1
Sub test2()
Application.ScreenUpdating = False
Dim aa As Variant, Tablo() As Variant
Dim c As Integer
Range("E:F").ClearContents
aa = Range("A1").CurrentRegion

For a = LBound(aa) To UBound(aa)
    If aa(a, 3) = Date Then
        c = c + 1
        ReDim Preserve Tablo(c)
        Tablo(c) = Application.Index(aa, a)
    End If
Next a

Range("F1").Resize(UBound(Tablo), 2) = Application.Transpose(Application.Transpose(Tablo))
Erase Tablo, aa
End Sub

Bonjour Game Over,

Si j’ai bien compris la demande de Roland, il s’agit de trouver toutes les personnes dont l'anniversaire est aujourd'hui.

Ton code va lui donner celles qui sont nées aujourd'hui (ça ne devrait pas faire grand monde ) .

A+

frangy a écrit :

Bonjour Game Over,

Si j’ai bien compris la demande de Roland, il s’agit de trouver toutes les personnes dont l'anniversaire est aujourd'hui.

Ton code va lui donner celles qui sont nées aujourd'hui (ça ne devrait pas faire grand monde ) .

A+

ah ouais, t'as raison, je me suis précipité... je corrige ça et je reposte.

Merci.

Mon post précédent corrigé pour répondre à la demande de Roland (et non pas à ce que j'ai envie de poster aujourd'hui !)

Option Base 1
Sub Anniv()
Application.ScreenUpdating = False
Dim aa As Variant, Tablo() As Variant
Dim c As Integer
Range("E:F").ClearContents
aa = Range("A1").CurrentRegion

For a = LBound(aa) To UBound(aa)
    If Day(aa(a, 3)) = Day(Date) And Month(aa(a, 3)) = Month(Date) Then
        c = c + 1
        ReDim Preserve Tablo(c)
        Tablo(c) = Application.Index(aa, a)
    End If
Next a

Range("F1").Resize(UBound(Tablo), 2) = Application.Transpose(Application.Transpose(Tablo))
Erase Tablo, aa

End Sub

bonjour

un essai par formule (pour les privés de vba)

cordialement

Merci à tous pour vos réponses et vos suggestions.

Je fais les essais et vous tiens au courant

A +

Merci à tous pour votre concours ! J'ai trouvé, grâce à vous, la solution qui me convenait.