Menu

Calcul age via vba [Résolu]

Messages postés
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
- - Dernière réponse : amo-51
Messages postés
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
- 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 

Votre réponse

3 réponses

Messages postés
491
Date d'inscription
lundi 22 septembre 2008
Dernière intervention
16 février 2019
72
0
Merci
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
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
-
Merci pour aide
toujours erreur 13
M-12
Messages postés
491
Date d'inscription
lundi 22 septembre 2008
Dernière intervention
16 février 2019
72 -
Re,

Place ton classeur exemple
amo-51
Messages postés
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
-
je n ai pas compris
je dois placer quoi ?
Commenter la réponse de M-12
Messages postés
1844
Date d'inscription
lundi 3 mai 2010
Dernière intervention
15 février 2019
122
0
Merci
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
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
-
que dois je faire
Commenter la réponse de Zoul67
Messages postés
7594
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
15 février 2019
1635
0
Merci
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
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
-
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
7594
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
15 février 2019
1635 -
Re,

Ne pas préciser la feuille, c'est risquer des ennuis !
amo-51
Messages postés
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
-
Quel type d'ennui?
Zoul67
Messages postés
1844
Date d'inscription
lundi 3 mai 2010
Dernière intervention
15 février 2019
122 > amo-51
Messages postés
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
-
Que ça utilise des données d'une mauvaise feuille... ou que tu en places dans une mauvaise feuille.
amo-51
Messages postés
78
Date d'inscription
mercredi 21 septembre 2016
Dernière intervention
15 février 2019
> Zoul67
Messages postés
1844
Date d'inscription
lundi 3 mai 2010
Dernière intervention
15 février 2019
-
merci c est fait
Commenter la réponse de Patrice33740