Re : Dates anniversaire quelques jours avant
Bonsoir, oui je pinaille ..désolé.... mais on aime ça.... lol.
Malheureusement lorsque je met votre proposition dans mon userform, il me met une fenetre avec:
"Projet ou bibliotheque introuvable"
et surligne
Dim cell As Range
For Each cell In Range("Feuil4;D3
" & Range("D3").End(xlDown).Row)
DateAnniversaire = CDate(Day(cell.Offset(0, 1)) & "/" & Month(cell.Offset(0, 1)) & "/" & Year(
Date))
If DateAnniversaire < Date + 7 And DateAnniversaire - Date > 1 Then
MsgBox " Attention anniversaire de : " & cell & " dans : " & CLng(DateAnniversaire) - CLng(Date) & " jours"
ElseIf DateAnniversaire < Date + 7 And DateAnniversaire - Date > 0 Then
MsgBox " Attention anniversaire de : " & cell & " dans : " & CLng(DateAnniversaire) - CLng(Date) & " jour"
ElseIf DateAnniversaire < Date + 7 And DateAnniversaire - Date = 0 Then
MsgBox " Attention anniversaire de : " & cell & " aujourd'hui "
le mot "DATE"