Bonjours à tous,
C'est la première fois que je viens...
ho secours!!!
Pour quand je tape les lignes suivantes dans VBExcel, le
format personnalisé " ans" ne se met pas en place.
Function Age(dn)
'
'Calcule l'age d'une personne (Age)en fonction de la date
de naissance(dn).
'
Age = Int((Date - dn) / 365.25)
Selection.NumberFormat = "[>=2]0"" ans"";0"" an"""
End Function
Merci de la réponse et bonne journée à tous
Précédente
Suivante
hors netiquette : Pour Frédéric S ...
Creation de bouton de commande