Bonjour,
Function CATEG(dn As Date, da As Date, Optional s As Integer = 1) As String
Dim aref%, age%, cat$
Application.Volatile
aref = Year(da) + (Month(da) < 7)
age = aref - Year(dn)
If age < 17 Then
ElseIf age < 40 Then
cat = "Senior"
Else
cat = "Vétéran " & (age \ 10) - 3
If age >= 80 Then cat = Replace(cat, Right(cat, 1), IIf(s = 1, "5", "4"))
End If
CATEG = cat
End Function
Utilisable en fonction de feuille de calcul. (Voir dans fichier.)
dn est la date de naissance.
da une date incluse dans la saison de référence ou la date du jour.
s le sexe (1=M, 2=F) : optionnel (cela ne joue que marginalement.
La fonction n'affiche rien si l'âge est inférieur à 17 ("").
Cordialement.