Afficher les anniversaires du mois par macro

[michir]

Bonjour,
Soit un tableau d'adhérents, avec un colonne A pour les noms et une colonne F indiquant les dates de naissance au format jj/mmmm/aaaa
Je souhaiterais faire une macro qui me retourne (dans une msgbox par exemple), les noms des adhérents ayant leur anniversaire dans le mois courant
Merci à tous
Michel

 

[Papou-net]

Re : Afficher les anniversaires du mois par macro

Bonjour michir,

Un exemple sur le fichier ci-joint.

Bon dimanche.

Cordialement.

 

[michir]

Re : Afficher les anniversaires du mois par macro

Merci Papou-net, c'est exactement ce que je cherchais
Bon Dimanche à toi,
Michel

 

[michir]

Re : Afficher les anniversaires du mois par macro

Question pour Papou-net
Pour adapter ta macro à mon cas , les noms sont en colonne B et les dates de naissance en colonne J
Je pensais que tu avais donné le nom "Liste" aux noms mais je ne vois pas ce nom dans le gestionnaire de noms ?
Quel est le mystère ?
Merci à toi

 

[Papou-net]

Re : Afficher les anniversaires du mois par macro

Question pour Papou-net
Pour adapter ta macro à mon cas , les noms sont en colonne B et les dates de naissance en colonne J
Je pensais que tu avais donné le nom "Liste" aux noms mais je ne vois pas ce nom dans le gestionnaire de noms ?
Quel est le mystère ?
Merci à toi

RE michir,

"Liste" est, comme son nom devrait l'indiquer, la variable chaîne variable qui enregistre les noms qui correspondent au mois en cours. C'est cette variable qui est affichée par le MsgBox.

Dans ton cas, il faut modifier les références des colonnes concernées, soit :

Private Sub CommandButton1_Click()
Dim Liste As String
For Each cel In Range("J:J").SpecialCells(xlCellTypeConstants)
  If Month(cel.Value) = Month(Date) Then
    Liste = Liste & vbLf & Cells(cel.Row, 2) ' le 2 représente la colonne B
  End If
Next
MsgBox Liste, vbOKOnly + vbInformation, "Anniversaires du mois"
End Sub

Restant à ton écoute.

Cordialement.

 

[michir]

Re : Afficher les anniversaires du mois par macro

Re Papou-net
J'ai toujours quelques soucis avec l'application de ta macro à mon fichier
Puis-je te l'envoyé en PJ mais sur une adresse perso pour garder la confidentialité du fichier ?
Michel

 

[Papou-net]

Re : Afficher les anniversaires du mois par macro

Puis-je te l'envoyé en PJ mais sur une adresse perso pour garder la confidentialité du fichier ?

Oui, bien sûr, je t'envoie mon adresse e-mail par MP.

Cordialement.

 

[michir]

Re : Afficher les anniversaires du mois par macro

Papou,
Je dois être sacrément nul, j'ai vu apparaître ton adresse mail et je n'ai pas pris le temps de la copier. Peux-tu recommencer la manip ?
Mon adresse messagerie: mhirard@gmail.com
Excuse moi
Merci à toi
Michel

 

[michir]

Re : Afficher les anniversaires du mois par macro

Papou
je viens de retrouver ton adresse en messages privés, excuse moi
Michel