Afficher les anniversaires du mois par macro

Papou-net

XLDnaute Barbatruc

• 3 Juin 2012

• #2

Re : Afficher les anniversaires du mois par macro

Bonjour michir,

Un exemple sur le fichier ci-joint.

Bon dimanche.

Cordialement.

 

Pièces jointes

• Michir.xlsm

  26.5 KB · Affichages: 297

Dernière édition: 3 Juin 2012

Vote positif 0 Vote négatif

M

michir

XLDnaute Occasionnel

• 3 Juin 2012

• #3

Re : Afficher les anniversaires du mois par macro

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

 

Vote positif 0 Vote négatif

M

michir

XLDnaute Occasionnel

• 3 Juin 2012

• #4

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 3 Juin 2012

• #5

Re : Afficher les anniversaires du mois par macro

michir à dit:

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

Cliquez pour agrandir...

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 :

Code:

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.

 

Vote positif 0 Vote négatif

M

michir

XLDnaute Occasionnel

• 3 Juin 2012

• #6

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 3 Juin 2012

• #7

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 ?

Cliquez pour agrandir...

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

Cordialement.

 

Vote positif 0 Vote négatif

M

michir

XLDnaute Occasionnel

• 3 Juin 2012

• #8

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

 

Vote positif 0 Vote négatif

M

michir

XLDnaute Occasionnel

• 3 Juin 2012

• #9

Re : Afficher les anniversaires du mois par macro

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

 

Vote positif 0 Vote négatif