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