Option Explicit
Function Zodiaque(DateN)
'fonction extraite du livre : VBA pour Excel
'de J-P Mesters
'Editions MICRO APPLICATION
Select Case DateN
Case DateSerial(Year(DateN), 3, 21) To DateSerial(Year(DateN), 4, 20)
Zodiaque = "Bélier"
Case DateSerial(Year(DateN), 4, 21) To DateSerial(Year(DateN), 5, 20)
Zodiaque = "Taureau"
Case DateSerial(Year(DateN), 5, 21) To DateSerial(Year(DateN), 6, 20)
Zodiaque = "Gémeaux"
Case DateSerial(Year(DateN), 6, 21) To DateSerial(Year(DateN), 7, 20)
Zodiaque = "Cancer"
Case DateSerial(Year(DateN), 7, 21) To DateSerial(Year(DateN), 8, 20)
Zodiaque = "Taureau"
Case DateSerial(Year(DateN), 8, 21) To DateSerial(Year(DateN), 9, 20)
Zodiaque = "Vierge"
Case DateSerial(Year(DateN), 9, 21) To DateSerial(Year(DateN), 10, 20)
Zodiaque = "Balance"
Case DateSerial(Year(DateN), 10, 21) To DateSerial(Year(DateN), 11, 20)
Zodiaque = "Scorpion"
Case DateSerial(Year(DateN), 11, 21) To DateSerial(Year(DateN), 12, 20)
Zodiaque = "Sagittaire"
Case DateSerial(Year(DateN), 1, 21) To DateSerial(Year(DateN), 2, 20)
Zodiaque = "Verseau"
Case DateSerial(Year(DateN), 2, 21) To DateSerial(Year(DateN), 3, 20)
Zodiaque = "Poisson"
Case Else
Zodiaque = "Capricorne"
End Select
End Function