calcul dans userform

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:

---

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

Bonsoir,

J'ai testé avec une saisie au format 10/12/1985 et j'obtiens bien 26. A voir comment tu saisie ta date ?

Hervé.

j'ai une listbox avec des donnees, et une textbox qui recupere les dates en fonction de ce que je choisis dans la listbox.
voila et je voudrais en fonction de cette date obtenir l'age
j'espere avoir ete assez clair, du moins je pense
chris

Bonsoir.

Citation:

---

Code:

---

1 2 3

Private Sub Datenaissance_AfterUpdate() Me.Age.Value = fctAge(Me.datenaissance.Value) End Sub

---

---

Bizarre que Datenaissance s'écrive avec ou sans majuscule. Ce code est dans la module du formulaire?
Tu as en haut du module "Option Explicit"? Quand tu compiles, as-tu une erreur?

PGZ

voici mon fichier
chris

Il s'ouvre comment ton formulaire?

je vais dans developpeur
visual basic
et j'execute l'userform.
tant qu'il ne fonctionne pas correctement, je n'est pas mis de bouton dans ma 1ere page

En fait, quand je clique n'importe où sur la page d'acceuil, ça ouvre le formulaire.

Un mystère levé : datenaissance c'est avec une minuscule. Et le code

Code:

---

1 2 3

Private Sub datenaissance_AfterUpdate() Me.Age.Value = fctAge(Me.datenaissance.Value) End Sub

---

En fait le formulaire fonctionne. Comme l'évènement est AfterUpdate, il faut sortir du contrôle date de naissance pour que l'âge soit mis à jour.

Tu peux, si tu préfères, changer d'évènement

Code:

---

1 2 3

Private Sub datenaissance_Change() If IsDate(Me.datenaissance.Value) Then Me.Age.Value = fctAge(Me.datenaissance.Value) End Sub

---

Cordialement,

PGZ

nickel,
ca fonctionne parfaitement.
merci beaucoup,je vais pouvoir finir