Calcul age via vba [Résolu]

A voir également:Calcul age via vbaCalcul age à une date donnée ✓ - Forum - Excel Calculer un age de date à date - Forum - Excel Calcul age excel ✓ - Forum - Excel Calcul age access - Forum - Access Calculer l'age par rapport à la date d'anniversaire ✓ - Forum - Excel

Bonjour;

je souhaite calculer l'age
j'ai la cellule

Cells(9, 10).Value :saisie de la date de naissance sous format 18/11/1977

Dim Age As Integer

Age = (Date - Cells(9, 10).Value) / 366

Cells(10, 10).Value = Age

Normalement excel affiche dans la cellule cells (10, 10).Value 41 ans

mais j ai un message d'erreur 13 sur la ligne 13

Merci de m'aider

Forum

A voir également:Calcul age via vbaCalcul age à une date donnée ✓ - Forum - Excel Calculer un age de date à date - Forum - Excel Calcul age excel ✓ - Forum - Excel Calcul age access - Forum - Access Calculer l'age par rapport à la date d'anniversaire ✓ - Forum - Excel

Web: www.shapebootstrap.net

3 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour

Teste comme ceci

Dim Age As Integer  
Age = (Date - CDate(Cells(9, 10).Value)) / 366
Cells(10, 10).Value = Age & " ans"

Reply
réponses:
  • auteur

    Merci pour aide
    toujours erreur 13

  • auteur

    Re,

    Place ton classeur exemple

  • auteur

    je n ai pas compris
    je dois placer quoi ?

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonsoir,

1. Erreur 13 : Incompatibilité de type ; il faut être précis entre dates et nombres...
2. Il n'y a pas 366 jours chaque année...

A+

Reply
réponses:
  • auteur

    que dois je faire

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Essaies :

Sub Test_Age() Dim Age As Integer Dim Naissance As Date    Naissance = ActiveSheet.Cells(9, "J").Value    Age = Year(Date + 1 - Naissance) - 1900    ActiveSheet.Cells(10, "J") = Age End Sub


Reply
réponses:
  • auteur

    Bonjour

    j'ai un peu modifié votre requête et CA MARCHE MERCI

    'VOICI MA REQUÊTE- affichage age

    Dim Age As Integer, Naissance As Date
    Naissance = Cells(9, 11).Value
    Age = Year(Date + 1 - Naissance) - 1900
    Cells(10, 11).Value = Age

    END SUB

  • auteur

    Re,

    Ne pas préciser la feuille, c'est risquer des ennuis !

  • auteur

    Quel type d'ennui?

  • auteur

    Que ça utilise des données d'une mauvaise feuille... ou que tu en places dans une mauvaise feuille.

  • auteur

    merci c est fait

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed