Affichage de l'age avant de le vider dans excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tophe2

XLDnaute Impliqué
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.
 

Pièces jointes

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

Bonjour Tophe

A tester:

Code:
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
 
Dernière édition:
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.
 
Re : Affichage de l'age avant de le vider dans excel

Re
Effectivement il y avait une erreur

Teste ceci
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour