Discussion :

[NEC14]

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

[ouskel'n'or]

Pour simplifier, on peut passer par une colonne intermédiaire :

Dans ce cas, les formules sont celles-ci

On peut tout placer dans une seule colonne mais ça comlique inutilement.
Bonne journée

[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 ????

[ouskel'n'or]

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

[peaceandloveman01]

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 :

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
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

[ucfoutu]

Bonjour,

Je te propose ceci :

Code :

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

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 :

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

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 :

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

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

[NEC14]

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 :

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
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

[ucfoutu]

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

[NEC14]

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 ?

[NEC14]

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

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
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 ????