Calcul age sous excel

Résolu/Fermé
maxololo - 1 janv. 2008 à 00:24
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 27 juin 2011 à 23:00
Bonjour,
Comment calculer sous excel 2003 l'âge exact de qq?
A voir également:

13 réponses

Bjr

voici une formule selon une date de naissance

=ANNEE(AUJOURDHUI()-B43)-1900
22
Raymond PENTIER Messages postés 58396 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 094
1 janv. 2008 à 15:18
... 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 ...
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
21 nov. 2008 à 22:59
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+
3
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
21 nov. 2008 à 23:45
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.
1
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 nov. 2008 à 15:34
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+
0
!^^![ME] Messages postés 4744 Date d'inscription dimanche 10 juin 2007 Statut Contributeur Dernière intervention 1 mars 2020 394
1 janv. 2008 à 00:37
Avec sa date de naissance...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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.
0
Raymond PENTIER Messages postés 58396 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 094
24 mars 2008 à 01:56
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.
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 396 > Raymond PENTIER Messages postés 58396 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024
24 mars 2008 à 08:43
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
0
Utilisateur anonyme > Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022
24 mars 2008 à 15:35
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
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 396 > Utilisateur anonyme
24 mars 2008 à 16:00
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
0
Voyez la fonction DATEDIF !!!

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

Fontionne au jour près. seule solution valable.

Scarabée
0
Raymond PENTIER Messages postés 58396 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 094
21 nov. 2008 à 20:34
Depuis le 24 mars, beaucoup d'eau a coulé sous les ponts ...
0
je n'arrive pas à obtenir un résultat quand la personne est en 1800.
Merci
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 25/06/2011 à 12:04
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.
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
25 juin 2011 à 12:16
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.
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 27/06/2011 à 00:03
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.
0
quelle formule faut-il appliquer dans tout cela pour trouver lâge???
merci
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
27 juin 2011 à 21:02
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
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
27 juin 2011 à 21:29
Salut le forum

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

Mytå
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 27/06/2011 à 22:15
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
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
27 juin 2011 à 23:00
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å
0
Raymond PENTIER Messages postés 58396 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 094
24 juin 2011 à 14:04
Normal : Le calendrier stocké dans Excel démarre au 01/01/1900 !
-1