XL 2013 Echelle des ages

[Jouxte]

Bonjour à toutes et tous,

J’aimerais construire une « échelle des évènements ».
Les dates peuvent dans certains cas être antérieures à 1900.
J’utilise pour le calcul des âges la fonction AGECALC trouvée dans le Forum.
J’aurais souhaité :soit avoir dans le commentaire (ici Mariage Hélène), l’ensemble des évènement antérieurs avec l’âge. (voir fichier test)
Si j’utilise un filtre, seules les lignes visibles seraient visibles dans le commentaire.
Si ce n’était pas possible dans le commentaire, le click dans une ligne modifierai la colonne des âges créée en colonne E.
J’espère avoir été assez clair dans mes explications.

Merci par avance pour votre aide.

 

[sylvanu]

Bonsoir Jouxte,
Juste un essai à tester en PJ.
Pour la colonne Année :

SI(ESTNUM(A2);ANNEE(A2);CNUM(DROITE(A2;4)))

pour la macro, si <1900 je rajoute 100ans que je rajoute ensuite pour calculer le délai.

If IsNumeric(dat1) = False Then
    Delai = 100
    dat1 = (Mid(dat1, 1, 6) & CStr(Val(Right(dat1, 4)) + 100))
End If
ans = Year(dat2) - Year(dat1) + Delai + (DateSerial(2000, Month(dat2), Day(dat2)) < DateSerial(2000, Month(dat1), Day(dat1)))

J'ai chosi la colonne E au lieu des commentaires, c'était plus simple.
Mais n'étant pas doué avec les dates, à bien vérifier.

 

[Jouxte]

Bonjour sylvanu,
Merci pour ton aide.
Quand je me positionne sur une ligne différente de celle de Mariage Hélène, il n'y a pas de modification des ages en colonne E.

 

[sylvanu]

Pour ne pas tout complexifier, j'ai mis la date de la ligne cliquée en E1 et fait les calculs sur cette date.

 

[Jouxte]

Re,

Merci beaucoup sylvanu. Simple et efficace.
C'est surement la bonne solution.
Merci encore, bonne soirée.

 

[Nairolf]

Salut Jouxte et sylvanu,

Comme j'ai aussi fait quelque chose (uniquement avec des formules), je le joins même si sylvanu a déjà fait une proposition qui convient.

 

[Jouxte]

Bonjour Nairolf,
Merci de t'être penché sue ce sujet.
Comme tu le dis si justement " Plus la solution est simple plus elle est performante!"
Le fichier étant déjà un .xlsm, une macro de plus ne sera pas génante.
Bonne soirée