Discussion :

[Theo2204]

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

[Qwazerty]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Theo2204]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Fauconnier]

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.

[Theo2204]

Merci beaucoup de votre réponse, cela fonctionne !

Encore merci,

Bonne soirée.

Théo