Discussion :

[lcoulon]

Bonjour

La fonction suivante est destinée à calculer l'age d'une personne en fonction de sa date de naissance insérée dans une textbox, une seconde textbox est destinée à afficher l'age de la personne.

La fonction fonctionne bien à l'exception de la modification du caption de la textbox destinée à recevoir l'age de la personne, pouvez vous me dire ce qui ne va pas svp ?

Code :

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

calcul_age Me.T3, Me.T4

La date de naissance est dans la textbox nommée T3 et le résultat attendu est dans la textbox T4

impossible de changer le caption de textbox T4 par le biais de 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
Private Sub calcul_age(ByRef textbox_date_naissance As msforms.TextBox, ByRef textbox_resultat_age As msforms.TextBox)
 
Dim dateEntrée As Date
Dim age, NbAnnées, NbMois, nbJours As Integer
 
If textbox_date_naissance.Value = "" Then Exit Sub
 
dateEntrée = textbox_date_naissance.Value
 
NbAnnées = (Year(Now()) - Year(dateEntrée))
NbMois = (Month(Now()) - Month(dateEntrée))
nbJours = (Day(Now()) - Day(dateEntrée))
 
If NbAnnées > 0 And NbMois > 0 Then
    age = NbAnnées
ElseIf NbAnnées > 0 And NbMois = 0 And nbJours >= 0 Then
    age = NbAnnées
Else
    age = NbMois
End If
 
textbox_resultat_age.Value = age
 
If NbAnnées < 1 Then
    textbox_resultat_age.Caption = "Mois"
Else
    textbox_resultat_age.Caption = "An(s)"
End If
 
End Sub

Si je modifie la fonction sans utiliser de paramètres, en spécifiant directement le nom des textboxes accueillant la date de naissance et le résultat, le caption fonctionne bien :

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
Private Sub calcul_age()
 
Dim dateEntrée As Date
Dim age, NbAnnées, NbMois, nbJours As Integer
 
If T3.Value = "" Then Exit Sub
 
dateEntrée = T3.Value
 
NbAnnées = (Year(Now()) - Year(dateEntrée))
NbMois = (Month(Now()) - Month(dateEntrée))
nbJours = (Day(Now()) - Day(dateEntrée))
 
If NbAnnées > 0 And NbMois > 0 Then
    age = NbAnnées
ElseIf NbAnnées > 0 And NbMois = 0 And nbJours >= 0 Then
    age = NbAnnées
Else
    age = NbMois
End If
 
T4.Value = age
 
If NbAnnées < 1 Then
    L4.Caption = "Mois"
Else
    L4.Caption = "An(s)"
End If
 
End Sub

[Franc]

Bonjour, dans la première macro tu utilises T3 et T4 qui sont des textbox, or ces contrôles n'ont pas la propriété caption.
Dans la deuxième je vois que tu utilises L4, ne serait-ce pas un label, qui lui a bien la propriété caption ?
Pour info, dans ta déclaration Dim age, NbAnnées, NbMois, nbJours As Integer, seul nbJours est un integer, les autres sont des variant, tu dois préciser pour chaque variable, même si tu les déclares sur la même ligne.
De plus, tu affectes une valeur à nbJours mais tu ne l'utilises pas dans le code, donc quel est l'intérêt ?
J'ai fait les modifications, teste et adaptes si besoin:

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
Private Sub calcul_age(ByRef textbox_date_naissance As MSForms.TextBox, ByRef textbox_resultat_age As MSForms.TextBox)
    Dim dateEntrée As Date
    Dim age As Integer
 
    If textbox_date_naissance.Value = "" Then Exit Sub
 
    dateEntrée = CDate(textbox_date_naissance.Value)
    age = Year(Now()) - Year(dateEntrée)
 
    ' Vérifie si la date de naissance est passée pour cette année.
    If Month(dateEntrée) > Month(Now()) Or (Month(dateEntrée) = Month(Now()) And Day(dateEntrée) > Day(Now())) Then
        age = age - 1
    End If
 
    If age > 0 Then
        textbox_resultat_age.Value = age & " An(s)"
    ElseIf age = 0 Then
        Dim mois As Integer
        mois = Month(Now()) - Month(dateEntrée)
        If mois < 0 Then
            mois = mois + 12
        End If
        textbox_resultat_age.Value = mois & " Mois"
    Else
        textbox_resultat_age.Value = "Erreur de date de naissance"
    End If
End Sub