Calcul age sous excel [Résolu/Fermé]

Signaler
-
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
-
Bonjour,
Comment calculer sous excel 2003 l'âge exact de qq?

13 réponses

Bjr

voici une formule selon une date de naissance

=ANNEE(AUJOURDHUI()-B43)-1900
22
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60915 internautes nous ont dit merci ce mois-ci

Messages postés
52289
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
14 081
... avec bien entendu la date de naissance dans la cellule B43 !

En tout cas grand merci à néné, car j'avais une formule beaucoup plus (et inutilement) compliquée ...
Messages postés
17229
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 septembre 2020
4 245
Salut,

Je viens mettre mon grain de sel dans la discussion même s'il s'agit d'une relance, ça prouve que rien ne se perd

Mets en B9 la date de naissance ou changes la valeur dans la formule

=DATEDIF(B9;AUJOURDHUI();"y")&" ans, "&DATEDIF(B9;AUJOURDHUI();"ym")&" mois et "&DATEDIF(B9;AUJOURDHUI();"md")&" jours"

et en cadeau un fichier complet avec mise en forme conditionnelle. Pour la sécurité des formules le fichier est protégé et le code macro également.
Le mot de passe pour accèder à la déprotection et macro dans le ThisWorbook saisir OPEN en majuscule

https://www.cjoint.com/?lvwZVI1Euo

A+
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 150
bonjour


Merci pour ce classeur bien conçu et pratique pour ceux qui ne veulent pas oublier d'anniversaire.

Dans le tri, peut-être remplacer Header:=xlGuess par Header:=xlYes car chez moi excel "devine" très mal.
Messages postés
17229
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 septembre 2020
4 245
Salut gbinforme,

Merci pour ton appréciation.
oui effectivement pour le code, ça peu également. Pour le fun je vais peut être l'améliorer avec une grosse shape personnalisée qui clignote le jour d’un anniversaire.

Il faut rester Joueur

A+
Messages postés
4744
Date d'inscription
dimanche 10 juin 2007
Statut
Contributeur
Dernière intervention
1 mars 2020
382
Avec sa date de naissance...
je n'arrive pas à faire la formule pour calculer l'âge de qqun à une date postérieure à la date du jour, par exemple je veux calculer l'age au 01/10/2012. Par avance merci de m'aider.
Messages postés
52289
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
14 081
1) Ne pas polluer la discussion d'un tiers, mais créer sa propre discussion en cliquant sur "Posez votre question" (en haut de l'écran, sous la ligne "Rechercher").
2) Dans la formule de néné, remplacer AUJOURDHUI() par C43, si c'est cette cellule qui contient la date de naissance.
Messages postés
25298
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
19 septembre 2020
5 479 >
Messages postés
52289
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020

Salut Raymond
... ou tout sdmplement
=ANNEE(cellule date recherchée)-ANNEE(cellule date naissance).
Celle là évite le 1900.
Bonne journée aux antilles. Ce matin, neige dans le Vaucluse.Normal c'est le printemps
CRDLMNT
Utilisateur anonyme >
Messages postés
25298
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
19 septembre 2020

Bonjour,
désolé mais la formule avec ...1900 fait gagner un an à ceux qui n'ont pas encore fêter leur anniversaire.
Même s'il neige çà n'empêche pas d'être un jour plu_vieux.LOL
Messages postés
25298
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
19 septembre 2020
5 479 > Utilisateur anonyme
Bonjour
Ca dépend uniquement de la date de naissance:début ou fin d'année!!!!!. En, fait, cela change si votre date de naissance est postèrieure au jour en cours!
CRDLMNT
Voyez la fonction DATEDIF !!!

=DATEDIF(date de naissance;aujourdhui();"y")

Fontionne au jour près. seule solution valable.

Scarabée
Messages postés
52289
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
14 081
Depuis le 24 mars, beaucoup d'eau a coulé sous les ponts ...
je n'arrive pas à obtenir un résultat quand la personne est en 1800.
Merci
Messages postés
17229
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 septembre 2020
4 245
Salut le fil,

Il existe une fonction personnalisé editée par Microsoft qui décompte les années à coller dans un module. si besoin faire signe

Public Function AgeFunc(stdate As Variant, endate As Variant)
Dim stvar As String
Dim stmon As String
Dim stday As String
Dim styr As String
Dim endvar As String
Dim endmon As String
Dim endday As String
Dim endyr As String
Dim stmonf As Integer
Dim stdayf As Integer
Dim styrf As Integer
Dim endmonf As Integer
Dim enddayf As Integer
Dim endyrf As Integer
Dim years As Integer
Dim fx As Integer
fx = 0
stvar = sfunc("/", stdate)
stmon = Left(stdate, sfunc("/", stdate) - 1)
stday = Mid(stdate, stvar + 1, sfunc("/", stdate, sfunc("/", stdate) + 1) - stvar - 1)
If Len(stday) = 1 Then fx = fx + 1
If Len(stmon) = 2 Then fx = fx + 1
styr = Right(stdate, Len(stdate) - (sfunc("/", stdate) + 1) - stvar + fx)
stmonf = CInt(stmon)
stdayf = CInt(stday)
styrf = CInt(styr)
If stmonf < 1 Or stmonf > 12 Or stdayf < 1 Or stdayf > 31 Or styrf < 1 Then
AgeFunc = "Invalid Date"
Exit Function
End If
fx = 0
endvar = sfunc("/", endate)
endmon = Left(endate, sfunc("/", endate) - 1)
endday = Mid(endate, endvar + 1, sfunc("/", endate, sfunc("/", endate) + 1) - endvar - 1)
If Len(endday) = 1 Then fx = fx + 1
If Len(endmon) = 2 Then fx = fx + 1
endyr = Right(endate, Len(endate) - (sfunc("/", endate) + 1) - endvar + fx)
endmonf = CInt(endmon)
enddayf = CInt(endday)
endyrf = CInt(endyr)
If endmonf < 1 Or endmonf > 12 Or enddayf < 1 Or enddayf > 31 Or endyrf < 1 Then
AgeFunc = "Invalid Date"
Exit Function
End If
years = endyrf - styrf
If stmonf > endmonf Then
years = years - 1
End If
If stmonf = endmonf And stdayf > enddayf Then
years = years - 1
End If
If years < 0 Then
AgeFunc = "Invalid Date"
Else
AgeFunc = years
End If
End Function

Public Function sfunc(x As Variant, y As Variant, Optional z As Variant)
sfunc = Application.WorksheetFunction.Search(x, y, z)
End Function


-
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 150
Bonjour Mike-31,

Tu as tout à fait raison mais cette fonction est pour la version anglaise (traduction automatique) et ne fonctionne pas avec le format français des dates. Mytå nous l'a améliorée pour prendre en compte les paramètres régionaux sur ce sujet.

Cependant, contrairement à DATEDIF que tu maitrise parfaitement, elle ne permet que de calculer les années.

Bien cordialement.
Messages postés
17229
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 septembre 2020
4 245
re,

Si on s'accorde une marge d'erreur d'un jour pour les années bissextiles des débuts de siècles, cette formule peut être faire l'affaire.
En effet sont bissextiles les années divisibles par 4 ou par 100 comme 2000, voire les deux.
sauf si elles sont divisible par 400 ce qui ne sera pas le cas de l'an 2500
Excel considère 1900 comme année bissextile ce qui est faut, et donc les calcul de cette année sont erronée.
la marge d'erreur est donc faible. en A1 la date de début et en A2 de fin.
si la formule ne passe pas, je mettrais un fichier

=SI(ET(A1<>"";A2<>"");SI(DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"Y")=0;" ";(DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"Y")&SI(DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"Y")>1;" ans, ";" an, ")))&SI(DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"YM")=0;"";DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"YM")&" mois, ")&SI(DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"MD")=0;" ";DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"MD")&SI(DATEDIF((GAUCHE(A1;TROUVE("_";SUBSTITUE(A1;"/";"_";2);1))&DROITE(A1;4)+(1900-DROITE(A1;4)))*1;(GAUCHE(A2;TROUVE("_";SUBSTITUE(A2;"/";"_";2);1))&(DROITE(A2;4)+(1900-DROITE(A2;4))+DROITE(A2;4)-DROITE(A1;4)))*1;"MD")>1;" jours ";" jour "));"")


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
quelle formule faut-il appliquer dans tout cela pour trouver lâge???
merci
Messages postés
17229
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 septembre 2020
4 245
Re,

Oui malheureusement, Excel est capable de calculer très facilement la différence entre deux dates à partir 1901 (le calendrier Excel 1900 est erroné) avec la fonction

= DateDif(A1; A2; "D" )

Par contre avant 1900 c'est le vide. Une fois ma formule testée par tous ceux qui parcourent le forum j'essayerai d'adapter un code VBA qui rendra l'utilisation plus simple.
Un exemple sur ce lien

https://www.cjoint.com/?AFBvceXg3OA
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
802
Salut le forum

Pourquoi essayer de réinventer la roue : XDate: Extended Date Functions Add-In

Mytå
Messages postés
17229
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 septembre 2020
4 245
Salut Myta,

Tout simplement le plaisir et avoir un décompte année/mois et jours entre deux dates.
Pour avoir simplement le nombre d'années entre deux dates on pourrait simplement formater la plage de saisie en texte exemple en A, et en A1 saisir la date 1/1/1700, en A2 1/1/2011

cette formule donne le nombre d'années entre les deux dates 311

=(DROITE(A2;4)-DROITE(A1;4))*1

cordialement
Mike-31
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
802
Re le forum

Comme 1/2/1700 et 1/1/2011 donne aussi 311 ans et la date de naissance n'est pas encore arrivée.

Mytå
Messages postés
52289
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
14 081
Normal : Le calendrier stocké dans Excel démarre au 01/01/1900 !