[RESOLU] : Calcul age en vba

Private Sub TextBox1_Change()
TextBox2 = "": TextBox3 = "": TextBox4 = ""
If Not IsDate(TextBox1) Then Exit Sub
If CDate(TextBox1) > Date Then Exit Sub
Dim test As Boolean, dat As Date
test = DateAdd("yyyy", Year(Date) - Year(TextBox1), TextBox1) > Date
TextBox2 = Year(Date) - Year(TextBox1) + test
dat = DateAdd("yyyy", TextBox2, TextBox1)
test = Day(TextBox1) > Day(Date)
TextBox3 = DateDiff("m", dat, Date) + test
TextBox4 = DateDiff("d", DateAdd("m", TextBox3, dat), Date)
End Sub

Private Sub TextBox1_Change()
TextBox2 = "": TextBox3 = "": TextBox4 = ""
If Not IsDate(TextBox1) Then Exit Sub
If CDate(TextBox1) > Date Then Exit Sub
Dim test1 As Boolean, test2 As Boolean
test1 = Day(TextBox1) > Day(Date)
test2 = Month(TextBox1) > Month(Date) Or Month(TextBox1) = Month(Date) And test1
TextBox2 = Year(Date) - Year(TextBox1) + test2
TextBox3 = DateDiff("m", TextBox1, Date) - 12 * TextBox2 + test1
TextBox4 = Day(Date) - Day(TextBox1) - test1 * Day(DateSerial(Year(Date), Month(Date), 0))
End Sub

Private Sub TextBox1_Change()
TextBox2 = "": TextBox3 = "": TextBox4 = ""
If Not IsDate(TextBox1) Or Not IsDate(TextBox5) Then Exit Sub
If CDate(TextBox1) > CDate(TextBox5) Then Exit Sub
Dim test As Boolean, dat As Date
test = DateAdd("yyyy", Year(TextBox5) - Year(TextBox1), TextBox1) > CDate(TextBox5)
TextBox2 = Year(TextBox5) - Year(TextBox1) + test
dat = DateAdd("yyyy", TextBox2, TextBox1)
test = Day(TextBox1) > Day(TextBox5)
TextBox3 = DateDiff("m", dat, TextBox5) + test
TextBox4 = DateDiff("d", DateAdd("m", TextBox3, dat), TextBox5)
End Sub

Sub TextBox5_Change()
TextBox1_Change
End Sub