La personne ma donnée cette superbe macro.
Je m'en suis servis de base et adapté à mon classeur.
Sub Aut
pen()
For Each n In Range("C10:C20")
If n = DateSerial(Year(n), Month(Date), Day(Date)) Then
MsgBox "il y a un(s) anniversaire(s) aujourd'hui "
Exit For
End If
Next
For Each a In Range("E10
18")
If a = Date Then
MsgBox "il y a un(s) évenement(s) aujourd'hui "
Exit For
End If
Next
End Sub
Désolé les smiley font le bazar dans la macro impossible de les enlevé.
(vous avez la macro dans le fichier joint
Après plusieurs heure de recherche j'ai réussi a adapté cette deuxième macro.
For Each c In Range("C10:C17")
If c.Value < DateSerial(Year(Date), Month(Date)
+ 1, Day(Date)) Then
MsgBox " Il y a un Anniversaire sous 1 mois ",
vbExclamation, ""
Exit For
End If
Next
Maintenant il faut que j'arrive a faire la même chose sur Day(Date)) + 15 Then
mais là. cela ne marche pas.
Allé je me prend la tète mais je me régale aussi.
allé j'y retourne
a bientôt