Re : AIDE TRANCHE D'AGE : quand cellule Date de naissance est vide ???
Bonjour à tous
Jackline tu copie et tu colle le code ci dessous dans un module standard et ensuite tu t'en sert comme une fonction normale.
tu la trouvera dans la catégorie personnalisée
Function Age(Date_de_Naissance As Date) As String
If Date_de_Naissance = "00:00:00" Then
Age = "NC"
Else
Select Case DateDiff("yyyy", Date_de_Naissance, Date)
Case Is <= 25
Age = "Moins de 25 ans"
Case 26 To 29
Age = "De 26 à 29 ans"
Case 30 To 39
Age = "De 30 à 39 ans"
Case 40 To 49
Age = "De 40 à 49 ans"
Case 50 To 59
Age = "De 50 à 59 ans"
Case Is >= 60
Age = "De 60 ans et plus"
End Select
End If
End Function
a+
jp