Prochains anniversaires

[jjfox2000]

Bonjour,

J'ai une base de données de personnes avec leur date d'anniversaire.

Je souhaiterais pouvoir extraire les personnes qui fêtent leur anniversaire dans le mois courant et afficher à côté la date

Je sais que c'est possible de le faire pour l'avoir vu par le passé mais je n'ai aucune idée des formules à utiliser.

Merci d'avance pour l'aide que vous pourrez m'apporter.

Je vous souhaite un bon après-midi.

jjfox

 

[CISCO]

Re : Prochains anniversaires

Bonjour

En pièce jointe, une méthode à adapter à tes besoins.

C'est facile pour obtenir les anniversaires du mois en cours et ceux du mois suivant, c'est plus dur si tu veux uniquement ceux des 31 jours suivants aujourd'hui...

@ plus

 

[kllmoon]

Re : Prochains anniversaires

Une solution en VBA

Private Sub CommandButton1_Click()
Dim g As Integer
copiecolle = 7
'variable contrôle, tu verras
For n = Sheets("Feuil1").Range("b27").End(xlUp).Row To 6 Step -1
'ici, ta variable n parcourera toutes les cellules dans le range b27:b7
f = Range("B" & n).Value
'on saisis la date dans ton tableau
g = (Format(Now - CDate(f), "m"))
'on calcul la différence en terme de mois seulement
If g < 2 Then
Range("A" & n & ":" & "B" & n).Copy
Range("E" & copiecolle & ":" & "F" & copiecolle).Select
 ActiveSheet.Paste
'on copie le nom et la date
copiecolle = copiecolle + 1
Else
If g > 11 Then
'si l'anniversaire est après aujourd'hui dans le mois courant, g renvoie 12
Range("A" & n & ":" & "B" & n).Copy
Range("E" & copiecolle & ":" & "F" & copiecolle).Select
 ActiveSheet.Paste
copiecolle = copiecolle + 1
End If
End If
Next
End Sub

 

[jjfox2000]

Re : Prochains anniversaires

Je viens de tenter un mix de vos idées et ça marche

Merci pour votre aide.