XL 2021 VBA calcul d'un intervalle entre deux TEXTBOX

dadaze · 7 Avril 2024

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 · 7 Avril 2024

Bonjour Dadaze,
Ne disposant pas de DateDiff, j'ai simplement fait :

VB:

Private Sub CommandButton1_Click()
    TxtAge = Int((Now - CDate(TxtDate2)) / 365.25)
End Sub

Addon : Mais je pense que la syntaxe de Datediff est Datediff(date début ; date fin) donc serait plutot :

VB:

Me.TXTage.Value = DateDiff(CDate(Me.TXTDATE2),Now,"y")

( évidemment non testé )

https://support.microsoft.com/fr-fr/office/calculer-la-différence-entre-deux-dates-8235e7c9-b430-44ca-9425-46100a162f38

patricktoulon · 7 Avril 2024

bonjour
perso j'utilise la formule avec evaluate

VB:

Private Sub TXTage_Enter()
Me.TXTage.Value = Evaluate("=DATEDIF(" & CLng(CDate(TXTDATE2)) & "," & CLng(Date) & ",""y"")")
End Sub

terminé

job75 · 7 Avril 2024

Bonjour à tous,

Il manquait juste 3 "y" :

VB:

Private Sub TXTage_Enter()
TXTage = DateDiff("yyyy", CDate(TXTDATE2), Now)
End Sub

A+

dadaze · 7 Avril 2024

patricktoulon à dit:
bonjour
perso j'utilise la formule avec evaluate

VB:

Private Sub TXTage_Enter() Me.TXTage.Value = Evaluate("=DATEDIF(" & CLng(CDate(TXTDATE2)) & "," & CLng(Date) & ",""y"")") End Sub

terminé

Un grand merci à Patricktoulon et Sylvanu les deux codes fonctionnent parfaitement.
je vous souhaite une bonne fin de Weekend

dadaze · 7 Avril 2024

job75 à dit:
Bonjour à tous,

Il manquait juste 3 "y" :

VB:

Private Sub TXTage_Enter() TXTage = DateDiff("yyyy", CDate(TXTDATE2), Now) End Sub

A+

merci Job 75 ça fonctionne aussi
bonne fin de Weekend

XL 2021 VBA calcul d'un intervalle entre deux TEXTBOX

dadaze

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

dadaze

XLDnaute Nouveau

dadaze

XLDnaute Nouveau

Discussions similaires