bonsoir
c'est encore moi
je souhaite dams mon userform, dans une textbox avoir la valeur Age
j'ai une textbox avex une valeur date, je souhaiterais recuperer cette date et la soustraire a la date d'aujourd'hui ,
j'ai le code suivant ,mais ca ne marche pas


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Function fctAge(ByVal DN As Variant) As String
If IsDate(DN) Then
  fctAge = CStr(DateDiff("yyyy", Me.datenaissance.Value, Date))
Else
   fctAge = ""
End If
End Function
Private Sub Datenaissance_AfterUpdate()
Me.Age.Value = fctAge(Me.datenaissance.Value)
End Sub
merci de m'expliquez pourquoi
chris