Discussion :

[akira66fr]

Bonsoir,
je récupère un tableau que je dois mettre en forme toutes les semaines ... classique ...
mais j'ai une colonne avec des dates de naissance et je veux mettre dans la colonne d'à côté l'âge correspondant (en nb d'années par rapport à la date d'aujourdh'ui) (par exemple 15/01/1980 en A2 doit donner 28 sur la cellule C2 et ainsi de suite sur plus de 5.000 lignes)
j'ai essayé datediff (avec 2 "f") dans tous les sens mais la synthaxe exacte m'échappe ...

du style :

Code :

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

=DateDiff(Range("a2"), "now()", "yyyy")

la fonction datedif dans excel fonctionne très bien mais je ne trouve pas sa correspondance en vba.

Une petite idée ??
Merci

[ucfoutu]

Bonjour,

Si tu te contentes de la différence en années (l'âge est autre chose de plus complexe) :

En VBA, ce devrait être :

Code :

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

 DateDiff("y", Now, Range("a2").value)

[cedric59dk]

en vba ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub MacroX()
 
 
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=YEARFRAC(RC[-1],TODAY(),1)"
 
 
End Sub

[ucfoutu]

Je voudrais appeler ton attention sur certains points (je t(ai parlé de l'âge plus haut...)

Lance ceci et du comprendras de quoi je parlais :

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
 ladate = "14/12/2007"
 MsgBox DateDiff("yyyy", ladate, Now)
 MsgBox DateDiff("m", ladate, Now) / 12
 MsgBox DateDiff("d", ladate, Now) / 365
End Sub

Les 2 derniers résultats sont moins mauvais (mais pas parfaitement exacts) que le 1er ... (because certaines choses, dont les mois et les années bissectiles...

[ouskel'n'or]

Que veux-tu ? Calculer l'âge par macro et le placer dans une cellule ou placer par macro la formule qui calcule l'âge dans les cellules ?

[cedric59dk]

Ca doit t'aider !

http://mhubiche.developpez.com/vba/f...ions/datetime/

[akira66fr]

je veux calculer l'âge par macro et le placer dans une cellule.
j'ai essayé les différentes formules proposées mais je n'arrive pas à obtenir quelque chose ...
Quand je parle d'âge, je parle du nombre d'année compris entre l'année en cours et l'année de naissance de la personne, c'est peut-être plus facile ...

[ouskel'n'or]

Tu as testé

Code :

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

MsgBox DateDiff("yyyy", ladate, Now)

?

[akira66fr]

pourquoi Msgbox ?

[illight]

Pour que tu vois le résultat tiens C'est à toi d'adapter à ton cas après

[akira66fr]

- en utilisant cette formule, j'obtiens bien le nb d'années dans ma cellule B2 (A2 contenant la date de naissance)

Code :

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

Range("B2") = DateDiff("yyyy", Range("A2"), Now)

mais je veux la dupliquer sur mes autres lignes ...

- en utilisant style la formule suivante, je ne fais que recopier mon résultat

Code :

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

Range("B2").AutoFill Destination:=Range("B2", Range("A2").End(xlDown).Offset(0, 1)), Type:=xlFillDefault

[fring]

Bonjour tlm,

Vu que tu as plus de 5000 lignes (probablement extensible) je verrais bien une petite boucle

En y regardant d'un peu plus près, la remarque de ucfoutu est judicieuse quant au fait que le calcul ne tenant compte que des années n'est pas d'une précision chirurgicale.
La personne née le 31/12/1970 afficherait déjà 38 ans depuis le 1/1/2008.

Tenant compte de cette remarque j'ai bricolé un ptit bout de code qui à l'air de tenir la route, il y a sans doute moyen de l'optimiser mais c'est vendredi soir et mon neurone est HS

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
Sub Age()
Dim i%
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Month(Now) < Month(Cells(i, 1)) Then
Cells(i, 2) = DateDiff("yyyy", Cells(i, 1), Now) - 1
GoTo suite
End If
If Month(Now) = Month(Cells(i, 1)) And Day(Now) < Day(Cells(i, 1)) Then
Cells(i, 2) = DateDiff("yyyy", Cells(i, 1), Now) - 1
GoTo suite
End If
Cells(i, 2) = DateDiff("yyyy", Cells(i, 1), Now)
suite:
Next
End Sub

Avec éventuellement...

Code :

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

1
2
3
Private Sub Workbook_Open()
Age
End Sub

...pour que la mise à jour se fasse automatiquement à chaque ouverture du classeur

[ouskel'n'or]

Une autre solution qui permet d'arrondir à l'âge le plus proche

Code :

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

1
2
3
4
ToDay = Int(CDbl(Now()))
LaDate = CDbl(CDate("31/12/1970"))
Age = Int(((ToDay - LaDate) / 365) + 0.5)
MsgBox Age

En ajoutant .5 on avoir l'arrondi proche.
Et pour appliquer ça à ta colonne, on utilise la boucle de fring

Code :

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

1
2
3
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
     Cells(i, 2) = Int(((Int(CDbl(Now())) - CDbl(Cells(i, 1))) / 365) + 0.5)
Next

Je pense que la précision est suffisante
A+

[AlainTech]

Si vous voulez un calcul simple (et précis) pour des âges de 0 à 99 ans, cette formule devrait convenir:

Code :

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

Val(Format(Now - CDate("2/1/1954"), "yy"))

[fring]

Si vous voulez un calcul simple (et précis) pour des âges de 0 à 99 ans, cette formule devrait convenir:

Code :

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

Val(Format(Now - CDate("2/1/1954"), "yy"))

ce qui donnerait si on l'intègre dans une boucle

Code :

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

1
2
3
4
5
6
Sub Age()
Dim i%
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = Val(Format(Now - CDate(Cells(i, 1)), "yy"))
Next
End Sub

[AlainTech]

Code :

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

Cells(i, 2) = Val(Format(Now - CDate(Cells(i, 1)), "yy"))

Juste un détail:
Si on prend la date dans une cellule, inutile de la convertir:

Code :

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

Cells(i, 2) = Val(Format(Now - Cells(i, 1), "yy"))

[fring]

Juste un détail:
Si on prend la date dans une cellule, inutile de la convertir:

Code :

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

Cells(i, 2) = Val(Format(Now - Cells(i, 1), "yy"))

oups...oui, merci pour cette rectification

[akira66fr]

Cela marche ...
Merci

[random]

Code :

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

1
2
 
=ENT(((((ANNEE(B49))*10000)+(MOIS(B49)*100)+JOUR(B49))-(((ANNEE(B48))*10000)+(MOIS(B48)*100)+JOUR(B48)))/10000)

[AlainTech]

la fonction datedif dans excel fonctionne très bien mais je ne trouve pas sa correspondance en vba.

Je me suis basé sur la demande du posteur...