Calculer l'âge

Bonjour,

J'aimerais calculer l'âge de plusieurs personnes à l'aide de leurs date de naissances pour ensuite en faire une moyenne sous forme de graphique. Mais je ne sais pas du tout comment faire...

Bonjour

En B2, tu as 05/10/1986

La formule

=DATEDIF($B2;AUJOURDHUI();"y")&" ans "&DATEDIF($B2;AUJOURDHUI();"ym")&" mois "&DATEDIF($B2;AUJOURDHUI();"md")&" jours"

renvoie 29 ans 2 mois 0 jours

Cette partie de la formule

=DATEDIF($B2;AUJOURDHUI();"y")

renvoie uniquement l'âge en années, soit 29

Quand au graphique, envoie une feuille Excel avec les données et explique quel graphique tu veux

Cordialement

Bonjour,

moi je partais plutôt sur un :

=Année(aujourd'hui()-$B2)-1900

Ca semble marcher mais ...

Cordialement,

Vbabeginner

Bonjour

VBABEGINNER, ta formule

=Année(aujourd'hui()-$B2)-1900

est incorrecte

AUJOURDHUI() ne prend pas d'accent

De plus, elle nécessite de modifier le format de la cellule contenant la formule.

Cordialement

Bonjour,

Pardon j'ai juste modifié le "aujourd'hui" manuellement parce que j'ai Office en Anglais petite faute de frappe

Merci pour la correction.

Cordialement,

Vbabeginner

Bonjour

si tu veux calculer en Macro voila

Option Explicit

Public Function AGE(Date1 As Date, Date2 As Date) As String
    Dim Datedebut As Long, Datefin As Long
    Dim Elt As Long
    Dim X As String, Y As String, z As String

        Datedebut = Int(Date1): Datefin = Int(Date2)
        If Datefin < Datedebut Then
            AGE = "Date invalide"
            Exit Function
        End If

        Elt = Evaluate("DATEDIF(" & Datedebut & "," & Datefin & ",""y""")
        If Elt > 0 Then X = Elt & IIf(Elt > 1, " ans, ", " an, ")

        Elt = Evaluate("DATEDIF(" & Datedebut & "," & Datefin & ",""ym""")
        If Elt > 0 Then Y = Elt & " mois, "

        Elt = Evaluate("DATEDIF(" & Datedebut & "," & Datefin & ",""md""")
        If Elt > 0 Then z = Elt & IIf(Elt > 1, " jours", " jour")

        AGE = X + Y + z
        If Right(AGE, 2) = ", " Then AGE = Left(AGE, Len(AGE) - 2)

    End Function

Cdlt

Merci beaucoup pour vos réponses!