Formule excel
Résolu
am59
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
am59 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
am59 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je dois calculer l'age d'une personne avec sa date de naissance et la date du jour !
Je reussis a le faire sous vba mais dans ma cellule excel j'obtiens #nom?
Je pense que c'est parcequ'il ne reconnait pas mes variables mais je ne sais pas comment faire pour résoudre le problème voici mon code
C'est surement ma variable DateNaissance mais mon msgbox me renvois bien l'age de la personne c'est juste dans l'affichage dans la cellule que ça ne fonctionne pas
Avez vous une solution??
merci
Je dois calculer l'age d'une personne avec sa date de naissance et la date du jour !
Je reussis a le faire sous vba mais dans ma cellule excel j'obtiens #nom?
Je pense que c'est parcequ'il ne reconnait pas mes variables mais je ne sais pas comment faire pour résoudre le problème voici mon code
Dim CelDateNaissance As String
Dim DateNaissance As Long
CelDateNaissance = Sheets("Application").cmbDateNaissance.Value
DateNaissance = Sheets("Lecteur").Cells.Range((CelDateNaissance & k))
MsgBox DateNaissance
Sheets("Statistiques").Select
Sheets("Statistiques").Cells.Range("BA" & k) = "=INT( (NOW()- DateNaissance)/365.25 & k)"
MsgBox Int((Now() - DateNaissance) / 365.25 & k)
C'est surement ma variable DateNaissance mais mon msgbox me renvois bien l'age de la personne c'est juste dans l'affichage dans la cellule que ça ne fonctionne pas
Avez vous une solution??
merci
A voir également:
- Formule excel
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
- Liste déroulante excel - Guide
2 réponses
Bonjour,
Il faut que tu fasse le calcul dans le script VBA que tu le mette dans une variable toto et que tu recopie la variable dans la cellule de ton choix.
Les modifications sont en gras
Dim CelDateNaissance As String
Dim DateNaissance As Long
Dim toto as integer
CelDateNaissance = Sheets("Application").cmbDateNaissance.Value
DateNaissance = Sheets("Lecteur").Cells.Range((CelDateNaissance & k))
MsgBox DateNaissance
Sheets("Statistiques").Select
MsgBox Int((Now() - DateNaissance) / 365.25 & k)
toto = Int((Now() - DateNaissance) / 365.25 & k)
Sheets("Statistiques").Cells.Range("BA" & k) = = toto
Bon courage
Biloue
Il faut que tu fasse le calcul dans le script VBA que tu le mette dans une variable toto et que tu recopie la variable dans la cellule de ton choix.
Les modifications sont en gras
Dim CelDateNaissance As String
Dim DateNaissance As Long
Dim toto as integer
CelDateNaissance = Sheets("Application").cmbDateNaissance.Value
DateNaissance = Sheets("Lecteur").Cells.Range((CelDateNaissance & k))
MsgBox DateNaissance
Sheets("Statistiques").Select
MsgBox Int((Now() - DateNaissance) / 365.25 & k)
toto = Int((Now() - DateNaissance) / 365.25 & k)
Sheets("Statistiques").Cells.Range("BA" & k) = = toto
Bon courage
Biloue