Formule pour calculer un âge dans un TextBox

Version imprimable

08/12/2008, 09h59
NEC14

Formule pour calculer un âge dans un TextBox

Bonjour à tous,

J'ai un problème un peu compliqué pour moi. J'ai fait des recherches mais je n'ai rien trouvé ou seulement une partie.
Voilà : Dans un UserForm (FrmEnf) 2 TextBox, le premier contient une date de naissance (TEnf3) avec un format date "dd/mm/yyyy", le 2ème (TEnf4) doit contenir l'âge calculé par rapport à la date du jour.
En plus, le Label (Label6) doit être si l'âge est inférieur à 1an = mois, si égal ou supérieur à 1an = an.
Pouvez-vous m'aider s'il vous plait ?
Merci par avance
08/12/2008, 11h01
ouskel'n'or

2 pièce(s) jointe(s)

Pour simplifier, on peut passer par une colonne intermédiaire :
Pièce jointe 39100
Dans ce cas, les formules sont celles-ci
Pièce jointe 39101
On peut tout placer dans une seule colonne mais ça comlique inutilement.
Bonne journée
08/12/2008, 11h10
NEC14

Bonjour ouskel'n'or,

Là c'est une formule pour un calcul dans une feuille Excel. Je souhaite que le calcul se fasse dans l'UserForm (Private Sub TEnf3 AfterUpdate()).
Mais ta formule me donne une idée de ce qu'il faut faire, mais l'appliquer en Vba ????
08/12/2008, 11h18
ouskel'n'or

Tu ne connais pas l'utilisation de Application.WorksheetFunction ?
Tu dis, au cas où, je te mettrai ça ;)

Salut NEC14,

pour les calculs sur les dates par rapport à celle d'aujourd'hui, tu peux utiliser l'instruction Now() qui te donnera la date d'aujourd'hui, et faire une différence avec la date de la Textbox TEnf3 avec ce bout de code par exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim dateEntrée As Date Dim age, nbAnnées, nbMois, nbJours As Integer dateEntrée = TEnf3.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 = nbAnnées - 1 End If TEnf4.Value = age If age < 1 Then Label6.Caption = nbMois Else Label5.Caption = nbAnnées End If
J'espère que cela t'aidera...

Cordialement,

Lyonel

Bonjour,

Je te propose ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Function Age1(D1 As String, D2 As String) As String Age1 = "une date est manquante" If D1 = "" Or D2 = "" Then Exit Function Age1 = "La 2ème date doit nécessairement être plus grande que la 1ère !" If DateValue(D1) > DateValue(D2) Or Not IsDate(D2) Then Exit Function Dim toto As String, a As Integer, m As Integer, j As Integer toto = DateValue(DateSerial(Year(D2) - Year(D1), Month(D2) - Month(D1), Day(D2) - Day(D1))) a = Val(Format(toto, "yy")) m = Val(Format(toto, "mm")) j = Val(Format(toto, "dd")) Age1 = Str(a) & " an" & IIf(a > 1, "s, ", ", ") & Str(m) & " mois et " _ & Str(j) & " jour" & IIf(j > 1, "s", "") End Function
où D1 est la date la plus grande et D2 la plus ancienne
Tu peux l'aappeler et l'afficher ainsi :

Code:

Label1.Caption = Age1(TextBox1Text, TextBox2.Text)

Il est clair que si tu ne veux afficher que les années et mois, tu transformes ainsi la dernière ligne de la fonction :

Code:

Age1 = Str(a) & " an" & IIf(a > 1, "s, ", ", ") & Str(m)

Bonjour,

J'ai donc mis en place ce code. Mais j'ai un petit soucis, si je tape par exemple 01/09/2008 dans TEnf3, TEnf4 me donne comme résultat -1.
Sinon, le reste fonctionne bien, le label se met bien en place, si je tape 12/02/1961 le résultat est bien 47.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TEnf3_AfterUpdate()
Dim dateEntrée As Date
Dim age, NbAnnées, NbMois, nbJours As Integer
 
dateEntrée = TEnf3.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 = NbAnnées - 1
End If
TEnf4.Value = age
If age < 1 Then
    Label6.Caption = "Mois"
Else
    Label6.Caption = "An(s)"
End If
End Sub

08/12/2008, 12h10
ucfoutu

Attention : ce code-là ne semble pas tenir compte des années bissectiles

J'ai trouvé la réponse
Voici le code tel qu'il fonctionne correctement, cela peut servir à quelqu'un d'autre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TEnf3_AfterUpdate()
Dim dateEntrée As Date
Dim age, NbAnnées, NbMois, nbJours As Integer
 
dateEntrée = TEnf3.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
TEnf4.Value = age
If NbAnnées < 1 Then
    Label6.Caption = "Mois"
Else
    Label6.Caption = "An(s)"
End If
End Sub

Merci à tous pour votre aide.
Qu'est-ce que l'on ferait sans vous ????:king:

08/12/2008, 12h13
NEC14

Citation:

Envoyé par ucfoutu

Attention : ce code-là ne semble pas tenir compte des années bissectiles

Ah ouais! je n'y avais pas pensé à cela.
Moi qui était content parce que cela fonctionnait.....
Et il faut que je rajoute quoi pour les bisextiles ?
08/12/2008, 12h29
ucfoutu

1) je viens de vérifier ===>> j'avais hélàs raison.
2) je t'ai donné une fonction qui, elle, marche pile-poil.
08/12/2008, 12h53
NEC14

Ok, cette fonction je la met où dans mon UserForm ?
Ce que je ne comprends pas dans ton code, c'est qu'il n'est fait mention de mes TextBox nulle part.
Peux-tu m'expliquer un peu pour que je comprenne comment cela fonctionne s'il te plait ?
Je t'en remercie par avance
08/12/2008, 13h12
ucfoutu

Tu n'as pas lu jusqu'au bout :
j'ai écrit

Citation:

où D1 est la date la plus grande et D2 la plus ancienne
Tu peux l'appeler et l'afficher ainsi :

Code :

Code:

Label1.Caption = Age1(TextBox1.Text, TextBox2.Text)

Tu y remplaces Label1 par le nom de ton Label,
Text1Box par le nom d'une de tes deux textboxes et TextBox2 par le nom de l'autre TextBox ...
Quant à l'évènement depuis lequel tu appelles cet affichage, c'est à ton seul gré, me semble-t-il ... et là... c'est ma foi TOI qui choisis et c'est vraiment élémentaire !

Désolé Ucfoutu, je n'avais lu jusqu'au bout.
En tout cas merci

J'ai donc mis en place ce code dans mon UserForm, mais rien ne se passe au niveau de TEnf4 où doit être indiqué l'âge.
Qu'ai-je fais comme erreur ????
Comment appeler ce code dans "Private Sub TEnf3_AfterUpdate"????

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Function age1(D1 As String, D2 As String) As String
    age1 = "une date est manquante"
        If D1 = "" Or D2 = "" Then Exit Function
    age1 = "La 2ème doit nécessairement être plus grande que la 1ère !"
        If DateValue(D1) > DateValue(D2) Or Not IsDate(D2) Then Exit Function
    Dim toto As String, a As Integer, m As Integer
    toto = DateValue(DateSerial(Year(D2) - Year(D1), Month(D2) - Month(D1)))
        a = Val(Format(toto, "yy"))
        m = Val(Format(toto, "mm"))
    age1 = Str(a) & "an" & IIf(a > 1, "s, ", ", ") & Str(m) & "mois"
    Label6.Caption = age1(TEnf3.Text, TEnf4.Text)
End Function

09/12/2008, 09h15
ouskel'n'or

Et si tu places ce code dans Private Sub TEnf3_Exit ?
09/12/2008, 09h49
NEC14

Bonjour,

Je laisse quand même Public Function ???