Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 VBA calcul d'un intervalle entre deux TEXTBOX

dadaze

XLDnaute Nouveau
Bonjour,

Je pensait ne pas rencontrer de difficulté encore raté! En effet, je souhaite calculer un intervalle entre une date de naissance et celle du jour exprimé en année.
Pour ce faire j'utilise deux TEXTBOX la première contenant la date de naissance et l'autre censée m'affichait l'âge.
A cette fin j'ai utilisé le code ci dessous mais bien évidemment ça bug en me retournant un chiffre négatif
Exemple : je mets ma date de naissance dans la TXTDATE2 et la TXTage me retourne ceci -19979.
Si vous disposez d'un peu de temps à me consacrer, je vous en remercie d'avance.

Private Sub TXTage_Enter()
Me.TXTage = Format(Me.TXTage, "0")
Me.TXTage.Value = DateDiff("y", Now, CDate(Me.TXTDATE2))
End Sub
 

sylvanu

XLDnaute Barbatruc
Supporter XLD

Pièces jointes

  • Classeur2.xlsm
    15.8 KB · Affichages: 2
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…