Calculer un âge dans un userform

Bonjour,

Je suis en ce moment sur un projet de gestion des adhérents,

J'aimerais faire ressortir l'âge d'un adhérent à partir de la textbox "datedenaissance" et afficher dans la textbox "âge", l'âge automatiquement dans cette textbox.

J'aimerais également savoir si vous aviez des solutions pour dire dans une textbox que l'utilisateur doit mettre soit "OUI" ou "NON" si il met autre chose que cela ne fonctionne pas.

Merci d'avance pour vos solutions,

Bonne soirée.

Théo

Salut

Pour le calcul de l'age, il suffit dans le _Change du textbox contenant la date de naissance de mettre le calcul de l'age et de le placer dans le textbox "Age". Ainsi quand le contenu de DateDeNaissance est modifié, l'age est mis à jour.

Pour le Oui/Non dans un textbox, pourquoi ne pas simplement utiliser une checkbox?

++
Qwaz

Salut.

Voici une fonction VBA pour calculer l'âge d'une personne. D'autres utiliseront Datediff mais perso, je n'aime pas, chacun son truc.

Code:

---

1 2 3 4 5 6

Function GetAge(BirthDate As Date, Optional CalculationDate As Date) As Long If CalculationDate = 0 Then CalculationDate = Date   GetAge = Year(CalculationDate) - Year(BirthDate) If DateSerial(Year(CalculationDate), Month(BirthDate), Day(BirthDate)) < CalculationDate Then GetAge = GetAge - 1 End Function

---

Cette fonction devrait être placée dans un module Tools pour être réutilisée à l'envi sur d'autres projets.

Du coup, il suffit d'utiliser l'évènement AfterUpdate du textbox sur la date de naissance pour actualiser le textbox Age. Normalement, il faut bien entendu un test sur la validité de la saisie de la date.

Code:

---

1 2 3

Private Sub tboBirthDate_AfterUpdate() tboAge.Value = DateTools.GetAge(tboBirthDate) End Sub

---

Pour le oui/non, je rejoint Qwazerty, un CheckBox est le contrôle idéal pour cela.

Bonjour merci de vos réponses,

Cependant, je ne comprends pas comment intégrer votre code dans mon vba. Effectivement, j'ai changé les noms pour l'affecter à mon formulaire mais cela m'indique que "l'objet requis", voici mon code,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub datedenaissance1_AfterUpdate() âge1.Value = DateTools.GetAge(datedenaissance1)   End Sub   Function GetAge(BirthDate As Date, Optional CalculationDate As Date) As Long If CalculationDate = 0 Then CalculationDate = Date   GetAge = Year(CalculationDate) - Year(BirthDate) If DateSerial(Year(CalculationDate), Month(BirthDate), Day(BirthDate)) < CalculationDate Then GetAge = GetAge - 1 End Function   Private Sub datedenaissance1_Change()   Dim Valeur As Byte datedenaissance1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox Valeur = Len(datedenaissance1) If Valeur = 2 Or Valeur = 5 Then datedenaissance1 = datedenaissance1 & "/"   End Sub     Private Sub âge1_Change() âge1.MaxLength = 2 'nb caractères maxi autorisé dans le textbox   'avec la virgule non valide (entier)   On Error Resume Next   If Not IsNumeric(Right(âge1, 1)) Then MsgBox "Le caractère saisi n'est pas valide, il faut entrée une valeur numérique"   End If End Sub

---

Pouvez-vous m'expliquer ce qu'il faut modifier exactement ?

Merci d'avance,

Théo.

Apparemment, la fonction GetAge est dans le module du userform. Dans ce cas, il faut supprimer DateTools. devant l'appel de la fonction. Il faut également bien vérifier les noms des contrôles. Perso, je mets toujours une majuscule quelque part dans le nom. Par contre, je saisis le code en minuscules et le VBE se charge de "corriger" en remettant les majuscules là où il faut. Ainsi, on vérifie visuellement très vite que la saisie est correcte.

N'hésite pas à compiler ton code avant de l'exécuter, ça permet une vérification que tout est correct au niveau des noms utilisés, des arguments et des types de variables.

Merci beaucoup de votre réponse, cela fonctionne !

Encore merci,

Bonne soirée.

Théo