Calcul de l'âge dans un commentaire

pierrejean

XLDnaute Barbatruc

• 5 Novembre 2018

• #2

Bonjour Jouste

un essai: ajouter (ou modifier) une date

 

Pièces jointes

• Test commentaire age.xlsm

  19.5 KB · Affichages: 38

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 5 Novembre 2018

• #3

Bonjour pierrejean,

C'est magique.
Merci beaucoup.
Je suppose que le Module2 n'a rien à voir.
Bonne journée.

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 5 Novembre 2018

• #4

Bonjour pierrejean,

Est-il possible de faire pour que l'affichage se fasse au survol de la cellule ?

Par avance Merci.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Novembre 2018

• #5

Bonsour® PierreJean

Jouxte à dit:

Bonjour pierrejean,

Est-il possible de faire pour que l'affichage se fasse au survol de la cellule ?

Cliquez pour agrandir...

A part l'affichage de commentaire il n'y a pas d'événement lié au survol d'une cellule...
autre formulation sans appel à d'autres fonctionnalités non native

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Cells.Count = 1 Then
        Dim age As Long, a, m, j
        age = Now - Target.Value
        a = Int(age / 365.25)
        m = Int((age / (365.25 / 12)) Mod 12)
                    'j=int(age mod(365.25/12))
                    ' === !!!!! Mod VBA arrondi les nombres à virgules flottantes à des nombres entiers
        j = Int(age - (365.25 / 12) * Int(age / (365.25 / 12)))
        On Error Resume Next
        Target.AddComment
        Target.Comment.Text Text:= _
                IIf(a > 0, a & IIf(a > 1, " ans ", " an "), "") _
                & IIf(m > 0, m & " mois ", "") _
                & IIf(j > 0, j & IIf(j > 1, " jrs", " jr"), "")
End If

End Sub

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 5 Novembre 2018

• #6

Bonjour Modeste geedee,

Merci pour l'info et pour ce code qui fait bien ce qu'on lui demande.

Bonne fin d'après midi.

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 5 Novembre 2018

• #7

Bonjour Modeste geedee,
Le code indique une erreur d'une journée.

si l'on tape 05/11/1955 le calcul dans le commentaire donne 63 ans 1 jr or on devrait obtenir 63 ans.

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 5 Novembre 2018

• #8

Re,

Y a-t-il moyen que le commentaire s'efface si la cellule est effacée.

Merci pour vos réponses.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Novembre 2018

• #9

Bonsour®

Jouxte à dit:

Bonjour Modeste geedee,
Le code indique une erreur d'une journée.

si l'on tape 05/11/1955 le calcul dans le commentaire donne 63 ans 1 jr or on devrait obtenir 63 ans.

Cliquez pour agrandir...

ça dépend de la valeur que tu accordes à une année (365 ou 366 jours)
peut-être aussi ton heure de naissance est antérieure à l'heure de consultation

mois et années ne sont pas des constantes arithmétiques !!!
ce découpage en années mois et jours n'est qu'une satisfaction visuelle
seule la valeur en jours représente l'age !
soit 23011 jours depuis 05/11/1955

la fonction proposée utilise les valeurs mathématiques moyennes d'une année et mois exprimées en jours et fraction de jours
i.e : 365.25 j et 30.4375 j

 

Dernière édition: 5 Novembre 2018

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 6 Novembre 2018

• #10

Bonjour Modeste geedee,

Merci pour ta réponse.

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 7 Novembre 2018

• #11

Bonjour à toutes et tous, Bonjour pierrejean,

J'utilise la macro de pierrejean au post #2.
Y a-t-il moyen de faire pour que les ages dans les commentaires s'actualisent à chaque activation de la feuille.

Par avance merci pour vos réponses.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Novembre 2018

• #12

Re

Vois si cela te convient

 

Pièces jointes

• Test commentaire age (1).xlsm

  19.9 KB · Affichages: 15

Vote positif 0 Vote négatif