Discussion :

[Swipok]

Bonjour à tous,

Désolé si la solution a déjà été publiée quelque part, malgré mes nombreux efforts, et quelques tentatives infructueuses de ma part, je n'ai pas trouvée la solution.

Dans le cadre de mon mémoire de fin d'études, je compile une base de données de patients, avec de nombreuses dates, et donc de nombreux âges (âge a la premiere consultation, âge a l'introduction du traitement, durée de traitement, etc...). Pour les calculer, j'ai trouvé la fonction Calculage parmi différents forums.
Malheureusement, un bug persiste.
Quand le jour de la date de naissance est supérieur au jour de référence, la fonction affiche un -320j (ou équivalent).
Exemple : DDN : 15/12/2000 ; Date d'entrée : 14/10/2010 => 9a 9m -324jo

Voila le code pour la situation où le jour C est < au jour N

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    ' Permet de savoir le nombre de jours du mois (fevrier inclus)
     Dim sdt1 As Date
    Dim sdt2 As Date
    sdt1 = DateValue("1" & "/" & mN1 & "/" & aN1)
    sdt2 = DateValue("1" & "/" & mN1 + 1 & "/" & aN1)
    Jdif = DateDiff("d", sdt1, sdt2)
    '
    '
    If jC1 < jN1 Then
        If mC1 > mN1 Then
            Mage = (mC1 - 1) - mN1
            'A vérifier :  Jage = (jC1 + Jdif) - jN1 +1
            Aage = aC1 - aN1
            Jage = (jC1 + Jdif) - jN1
            GoTo caline1
        End If

Si vous avez une solution, je vous en serait infiniment reconnaissant !

Merci d'avance,

Adrien

[Invité]

Bonjour,

Le décompte dans ce vidage d'écran correspond-il à ce que vous devez trouver ? J'ai un doute sur le décompte des mois et des jours.
Pièce jointe 404608

[Swipok]

Oui c'est ce que j'espère trouver.

Auriez-vous une solution pour remplacer le code ?

[Invité]

Je vais regarder, sans garantie. Cela a l'air d'une usine à gaz.

Sinon, mon vidage d'écran comporte une erreur.
Soit la date du dernier mois au dessus de la date de naissance dans la colonne D (14/01/2001) ramenée au mois précédent (14/12/2000). Si l'écart entre la date de naissance et cette dernière date = 1, alors le nombre de mois doit être augmenté de 1 et le nombre de jours restant est de 0.

[hyperion13]

Salut,
il ne serait pas plus simple d'utiliser :
A2=15/12/2000 et B2=14/10/2010

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C2=SI(B2>A2;DATEDIF(A2;B2;"y")&" an(s) "&DATEDIF(A2;B2;"ym")&" mois et "&DATEDIF(A2;B2;"md")&" jour(s)";DATEDIF(B2;A2;"y")&" an(s) "&DATEDIF(B2;A2;"ym")&" mois et "&DATEDIF(B2;A2;"md")&" jour(s)")

[Invité]

Salut Hyperion,

Bravo pour ta formule !
Pièce jointe 404910

[Swipok]

Salut,
il ne serait pas plus simple d'utiliser :
A2=15/12/2000 et B2=14/10/2010

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C2=SI(B2>A2;DATEDIF(A2;B2;"y")&" an(s) "&DATEDIF(A2;B2;"ym")&" mois et "&DATEDIF(A2;B2;"md")&" jour(s)";DATEDIF(B2;A2;"y")&" an(s) "&DATEDIF(B2;A2;"ym")&" mois et "&DATEDIF(B2;A2;"md")&" jour(s)")

Ça marche super! A un ou deux jours près sur certaines dates mais je n'ai plus l'incohérence du -300 jours !

Merci beaucoup !!

[Invité]

Quelles dates ? Peux-tu indiquer les cas ?

[Swipok]

Quelles dates ? Peux-tu indiquer les cas ?

Je crois qu'Excel n'aime pas trop le mois de Décembre...

[Invité]

Voilà ce que je trouve avec mon outil.
Pièce jointe 405048

On constate un écart d'une journée avec la méthode d'Hyperion pour le 15/10 et 15/12. Pourtant on trouve le même nombre de jours pour la journée du 15/12 au total (4740 jours).
Ci-dessous le décompte réalisé pour cette journée.

Pièce jointe 405052

Tu es sûr de ta formule pour le 05/01/2016 avec la méthode d'Hyperion ? Je trouve la même chose.

[Swipok]

Voila le code utilisé pour la formule du 05/1/2016

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(R21>I21;DATEDIF(I21;R21;"y")&"a "&DATEDIF(I21;R21;"ym")&"m "&DATEDIF(I21;R21;"md")&"j ";DATEDIF(R21;I21;"y")&" a"&DATEDIF(R21;I21;"ym")&" m"&DATEDIF(R21;I21;"md")&" j")

J'ai simplement supprimer les "années / mois / jours" pour plus de clarté dans mon tableau.

[Invité]

• J'ai vérifié, ce n'est pas une inversion du jour et du mois où 05/01/2016 serait interprété comme 01/05/2016.
• Regarde les triangles verts en haut à gauche de tes cellules. Ce n'est pas normal pour une valeur qui doit être numérique. Efface (comme avec effacer tout, pas seulement le contenu) et copie le contenu de ta formule et colle le dans ta cellule pour voir.

[Swipok]

Il met les petits triangles vert car les autres cellules contiennent mon ancienne formule.

[QuestVba]

Bonjour,
Ce qui est étonnant c'est que les données 'age_1ers_spt' et '1ere_cs_age' sont correctes. Il y a donc un petit truc qui cloche... Données contaminées par les anciennes formules ???

[hyperion13]

Quoi ! la discussion n'est pas encore clôturée ?

swipok, d'où proviennent vos données ?
- sont-elles saisies dans la feuille ? Dans ce cas il ne devrait normalement ne pas y avoir de problèmes.
- sont-elles copiées/collées, sont-elles importées ? Là par contre, il pourrait y avoir des problèmes. Dates au format US, au format Texte, etc.

Pour ma part, j'ai ouvert un nouveau classeur saisi les 2 dates de référence et j'ai pondu ma formule datedif() que j'utilise assez régulièrement et qui ne m'a à ce jour posée aucun problème.

[Invité]

Il met les petits triangles vert car les autres cellules contiennent mon ancienne formule.

Suite à la remarque QuestVba que je salue, as-tu vraiment effacé ta cellule comme dans le vidage d'écran ?

Pièce jointe 405163

[QuestVba]

Après l'opération d'Éric (qui devrait fonctionner à tous les coups), tu peux nous faire un petit

pour bien vérifier la formule.

[Swipok]

J'ai trouvé la solution. J'ai utilisé mon Excel 365 plutot que celui que j'avais au boulot et là pas de problème avec la formule d'hyperion.

Merci beaucoup à vous d'avoir passé autant de temps à m'aider.