Calcul d'une date de naissance à partir d'un décès

Bonjour

Je recherche à me faire un petit exercice en Excel VBA que je connais assez bien. Je suis férue de généalogie. Je cherche à calculer la date de naissance à partir de la date du décès et de l'age (an, mois et parfois jours) pour m'aider à faire mes recherches.

Mais jusqu’à présent j'ai toujours fait des calculs pour afficher l'age ou limite d'âge mais jamais en "arrière".

Est-il possible donc de faire ce calcul sachant que dans les actes on n'a que l'age en année, mois (parfois supérieur à 12 mois) , rarement les jours .

Merci pour votre aide

Mamette 81

Bonjour Mamette81,

Avant de passer au VBA, peut-on dire qu'une personne décédée le 17/05/2020 et âgée le jour du décès de 86 ans 3 mois et 21 jours est né le : 26/01/1934 ?

Si oui le classeur ci-dessous propose une solution sans VBA.

Le résultat est il correct ?

Bonne courage

Christian

Bonjour à tous

Une solution plus directe

Avec date décès en E2, Age en années en B4, mois en C4, jours en D4

=MOIS.DECALER(E2;-(B4*12+C4))-D4

Bonjour à tous,

Quid des personnes nées avant le 1er janvier 1900 ?

RE

JoyeuxNoel a écrit :

Quid des personnes nées avant le 1er janvier 1900 ?

En texte

=TEXTE(MOIS.DECALER(GAUCHE(SI(ESTNUM(E2);TEXTE(E2;"jj/mm/");E2);6)&SI(ESTNUM(E2);ANNEE(E2)+400;(DROITE(E2;4)+2000)*1);-(B4*12+C4))-D4;"jj/mm/")&TEXTE(ANNEE(MOIS.DECALER(GAUCHE(SI(ESTNUM(E2);TEXTE(E2;"jj/mm/");E2);6)&SI(ESTNUM(E2);ANNEE(E2)+400;(DROITE(E2;4)*1)+2000*1);-(B4*12+C4))-D4)-SI(ESTNUM(E2);400;2000);"0000")

permet de remonter avant Charlemagne sous réserve de saisir sous la forme 18/05/0800 (sauf nouvelle erreur de ma part )

VBA permet de gérer avant 1900 mais on ne peut restituer qu'en texte dans une cellule

Bonjour

Merci beaucoup pour votre aide mais aucune solution ne marche dès que l'on met une date antérieur à 1900

L'idée de JoyeuxNoel d'utiliser le "texte" était une bonne idée mais ca n'a pas marché dès que j'ai mis une date antérieure .

Mille mercis

Merci

Ah non, non, je n'ai apporté aucune aide !

Je n'ai fait que pointer un souci récurrent, et c'est 78Chris qui a fait tout le boulot !!

En fait avec la formule

=TEXTE(MOIS.DECALER(E2;-(12*(SI(ANNEE(E2)-B4<1900;-400;0)+B4))-C4)-D4;"jj/mm/")&TEXTE(ANNEE(E2)-B4;0)

cela ne marche que si on met une date supérieur à 1900 pour le décès la formule donne bien une date antérieure à 1900 mais si la date du décès est antérieure à 1900 cela ne marche plus .

Merci pour votre implication dans mon problème

Cordialement

Re

A vérifier mais semble OK cette fois

=TEXTE(MOIS.DECALER(GAUCHE(SI(ESTNUM(E2);TEXTE(E2;"jj/mm/");E2);6)&SI(ESTNUM(E2);ANNEE(E2)+400;(DROITE(E2;4)+2000)*1);-(B4*12+C4))-D4;"jj/mm/")&TEXTE(ANNEE(MOIS.DECALER(GAUCHE(SI(ESTNUM(E2);TEXTE(E2;"jj/mm/");E2);6)&SI(ESTNUM(E2);ANNEE(E2)+400;(DROITE(E2;4)*1)+2000*1);-(B4*12+C4))-D4)-SI(ESTNUM(E2);400;2000);"0000")