Calcul age via vba

Résolu/Fermé

Calcul

amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019 - 11 févr. 2019 à 18:40
amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 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

A voir également:

Vba calcul âge avec date de naissance
Trouver une date de naissance gratuit - Forum Webmastering
Journal de ma naissance gratuit à imprimer - Télécharger - Histoire & Religion
Trouver une date de naissance ✓ - Forum Google Chrome
Calcul moyenne excel - Guide
Publipostage date de naissance inversée ✓ - Forum Word

3 réponses

Réponse 1 / 3

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
Modifié le 11 févr. 2019 à 18:47

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 mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
11 févr. 2019 à 18:54

Merci pour aide
toujours erreur 13

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
11 févr. 2019 à 20:14

Re,

Place ton classeur exemple

amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
11 févr. 2019 à 22:13

je n ai pas compris
je dois placer quoi ?

Réponse 2 / 3

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
11 févr. 2019 à 21:46

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 mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
11 févr. 2019 à 22:13

que dois je faire

Réponse 3 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
12 févr. 2019 à 09:11

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 mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
12 févr. 2019 à 10:09

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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
12 févr. 2019 à 16:21

Re,

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

amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
13 févr. 2019 à 14:06

Quel type d'ennui?

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149 > amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
13 févr. 2019 à 14:59

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 mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019 > Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023
13 févr. 2019 à 15:41

merci c est fait

Discussions similaires

TIK TOK

Je n’arrive plus à aller sur tik tok

Problème âge Google.

Je veux trouver ma date de naissance

Comment désinstaller l'application Family Link ?

trouver date et lieu de naissance d'une personne