Affichage de l'age avant de le vider dans excel

[Tophe2]

Bonjour le forum

Suite à l'aide du forum j'ai pu réaliser un fichier qui semble pour l'instant me convenir cependant je souhaiterai lors de la saisie de la fiche d'un candidat que son age s'affiche dans la textbox correspondante avant que l'ajout de cette fiche se fasse sur excel.

Comment faut il s'y prendre pour y arriver car l'âge est affiché par une formule placé dans excel.

Ci joint le fichier.

Cordialement
Christophe.

 

[pierrejean]

Re : Affichage de l'age avant de le vider dans excel

Bonjour Tophe

A tester:

Private Sub TextBox4_AfterUpdate()
If IsDate(TextBox4.Value) Then
 an = Int(DateDiff("m", TextBox4, Now) / 12)
 mois = DateDiff("m", TextBox4, Now) Mod 12
 If mois <> 0 Then
   TextBox5 = an & " ans et " & mois & " mois"
 Else
   TextBox5 = an & " ans"
 End If
End If
End Sub

 

[Tophe2]

Re : Affichage de l'age avant de le vider dans excel

Bonjour PierreJean

J'ai essayer avec une date 15/10/1972 il m'informe 37 ans et 11 mois alors que c'est 36 ans et 11 mois mais si je saisie 15/09/1972 il écrit 37 ans et 0Mois.

Apriori une erreur sur l'année avant la date du jour, mais bon je n'en sait pas plus.

Merci pour ton aide
Cordialement
Christophe.

 

[pierrejean]

Re : Affichage de l'age avant de le vider dans excel

Re
Effectivement il y avait une erreur

Teste ceci

Private Sub TextBox4_AfterUpdate()
If IsDate(TextBox4.Value) Then
 an = Int(DateDiff("m", TextBox4, Now) / 12)
 mois = DateDiff("m", TextBox4, Now) Mod 12
 If mois <> 0 Then
   TextBox5 = an & " ans et " & mois & " mois"
 Else
   TextBox5 = an & " ans"
 End If
End If
End Sub

Nb: pour ne pas trop laisser trainer d'erreurs je rectifie le post precedent

 

[Tophe2]

Re : Affichage de l'age avant de le vider dans excel

Re,

Merci PierreJean pour ton aide cela fonctionne correctement

Cordialement
Bonne Journée
Christophe.

 

[croco40]

Re : Affichage de l'age avant de le vider dans excel

Salut PierreJean, et le forum,
ton code fonctionne, mais je n'arrive pas a ajouter la variable pout les jours
exemple 30 ans et 2 mois et 5 jours
Peux-tu m'aider ?
Suerte
Croco

 

[GuillaumA]

Re : Affichage de l'age avant de le vider dans excel

Bonjour crocro

Peut être une formule excel toute simple
Ci-joint le fichier exemple avec la formule trouvé ailleurs dans le forum

Cordialement,
Guillaume A.

 

[pierrejean]

Re : Affichage de l'age avant de le vider dans excel

Re

Voici ton fichier avec une fonction AGE_DE_JOUR

 

[croco40]

Re : Affichage de l'age avant de le vider dans excel

Bonjour a tous,
merci GuillaumeA et pierrejean,
je vais tester et je vous tiens au courant.
Suerte
Croco