Calcul age via vba

Résolu

Calcul

amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention -
amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention - 13 févr. 2019 à 15:41

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

Afficher la suite

A voir également:

Vba calcul âge avec date de naissance
Trouver une date de naissance gratuit - Forum Webmastering
Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
Modifier date de naissance compte google mineur - Forum Gmail
Date de naissance publipostage ✓ - Forum Word
Calcul moyenne excel - Guide

3 réponses

Réponse 1 / 3

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

Bonjour

Teste comme ceci

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

amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention

Merci pour aide
toujours erreur 13

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

Re,

Place ton classeur exemple

amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention

je n ai pas compris
je dois placer quoi ?

Réponse 2 / 3

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149

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+

amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention

que dois je faire

Réponse 3 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

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

amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention

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

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

Re,

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

amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention

Quel type d'ennui?

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149 > amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention

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

amo-51 Messages postés 94 Date d'inscription Statut Membre Dernière intervention > Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention

merci c est fait

Discussions similaires

reduction fillon 2019

Calcul d'une marge d'erreur

Ordres des amies snap

Calcul de taux d evolution

intérêt composé journalier

taux de variation annuel moyen

Votre réponse

Discussions similaires