Calculer un âge relatif

Pierrot93

XLDnaute Barbatruc

• 21 Juin 2013

• #2

Re : Calculer un âge relatif

Bonjour,

peut être ceci, à adapter :

Code:

MsgBox CInt((Date - ActiveCell) / 365)

bon après midi
@+

 

Vote positif 0 Vote négatif

F

fb62840

XLDnaute Impliqué

• 21 Juin 2013

• #3

Re : Calculer un âge relatif

Je ne pense pas car dans certains cas (années bissextiles) la valeur n'est pas à 365, et dans certains cas en fonction de la date de référence (si elle est lointaine) alors ça peut résulter en une erreur

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Juin 2013

• #4

Re : Calculer un âge relatif

Tu disais...;

Je fais à appel à toutes et tous afin de réussir à calculer un âge "relatif"

Cliquez pour agrandir...

désolé...

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 21 Juin 2013

• #5

Re : Calculer un âge relatif

Bonsour®

pour adapter en clin d'œil relatif à Pierrot93 😉
et alors tenir compte des années bissextiles ... :
MsgBox CInt((ActiveCell-DateNaissance) / 365.256363)

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 21 Juin 2013

• #6

Re : Calculer un âge relatif

Bonjour, salut Pierrot,
sans plus d'information et d'après ce que j'en ai compris :

Code:

MsgBox Year(Date) - Year(ActiveCell)

A+

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 21 Juin 2013

• #7

Re : Calculer un âge relatif

Bonsoir à tous Bonsoir Pierrot,

Les années bissextiles représentent une difficulté pour le calcul des âges ( ce n'est pas la première fois sur ce site et beaucoup d'autres)

Bonne soirée

 

Dernière édition: 21 Juin 2013

Vote positif 0 Vote négatif

F

fb62840

XLDnaute Impliqué

• 21 Juin 2013

• #8

Re : Calculer un âge relatif

Bonjour à vous deux,

Merci pour ces suggestions

Avec Year je n'obtiens pas le résultat qui convient car avec un code comme celui ci et avec une valeur en B2 égale à 1/9/2012
je devrais obtenir avec mon année de naissance (17/9/1967) je ne devrais probablement pas obtenir 45 ans (mon âge actuel) mais 44 ans (l'âge en année que j'avais au 1/9/2012 puisque je n'avais pas encore fêté mon anniversaire).

Range("G" & Nlig).Value = Year(Sheets("Source").Range("B2").Value) - Year(Range("B" & Nlig).Value)

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 21 Juin 2013

• #9

Re : Calculer un âge relatif

Bonsour®
😉 tout ça c'est "relatif" ...
les années calendaires de 365 jours sont 3 fois plus fréquentes que les années de 366 jours !

[table="width: 700"]
[tr]
[td]année Tropique [/td] [td]31 556 925 sec [/td] [td]365,242190517 j solaires [/td]
[td]366,24257448 j sidéraux[/td][/tr]
[tr]
[td]année Julienne[/td][td]31 557 600 sec[/td][td]365,250000000 j solaires[/td]
[td]366,25040620 j sidéraux [/td] [/tr]
[tr] [td]année Sidérale[/td] [td]31 558 149 sec [/td] [td]365,256363051 j solaires[/td]
[td]366,25677777 j sidéraux[/td] [/tr]
[tr][td]année Anomalistique[/td][td]31 558 433 sec[/td][td] 365,259635864 j solaires[/td]
[td] 366,26006846 j sidéraux[/td][/tr]
[tr]][td]année Draconitique [/td][td]29 947 975 sec [/td][td] 346,620075883 j solaires [/td][td] 347,5694555 j sidéraux [/td] [/tr]
[/table]
et on ne parle ici que de la planète TERRE à l'époque actuelle... 🙄

 

Pièces jointes

• age relatif.xlsx

  10.1 KB · Affichages: 58

Dernière édition: 21 Juin 2013

Vote positif 0 Vote négatif

F

fb62840

XLDnaute Impliqué

• 21 Juin 2013

• #10

Re : Calculer un âge relatif

Et c'est encore plus vrai selon que l'on vit en marchant ou en ne cessant jamais de courir ...

Merci pour ce clin d'oeil

 

Vote positif 0 Vote négatif

F

fb62840

XLDnaute Impliqué

• 21 Juin 2013

• #11

Re : Calculer un âge relatif

Super,

Merci pour le fichier, c'est très fort

Y a t-il un moyen pour obtenir la rédaction de la formule en vba : Range(B & lig).Formula = ...

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 21 Juin 2013

• #12

Re : Calculer un âge relatif

Bonsour®

Range("G" & Nlig).Value = INT((Sheets("Source").Range("B2").Value - Range("B" & Nlig).Value) /365.256363)

 

Vote positif 0 Vote négatif

F

fb62840

XLDnaute Impliqué

• 21 Juin 2013

• #13

Re : Calculer un âge relatif

ça ne marche pas...

En fait la macro bloque sur une erreur de type 13 "incompatibilité de type"

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Juin 2013

• #14

Re : Calculer un âge relatif

Bonsoir fb62840, à tous,

J'ai lamentablement merdoyé entre les +/- et > et <.

voir ce message.

 

Dernière édition: 22 Juin 2013

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 21 Juin 2013

• #15

Re : Calculer un âge relatif

fb62840 à dit:

ça ne marche pas...

En fait la macro bloque sur une erreur de type 13 "incompatibilité de type"

Cliquez pour agrandir...

Chez moi ça marche !!!

 

Pièces jointes

• Capture.jpg

  39.9 KB · Affichages: 74
• Capture.jpg

  39.9 KB · Affichages: 78
• Capture.jpg

  39.9 KB · Affichages: 74

Vote positif 0 Vote négatif