syntaxe datediff VBA

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:

---

=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

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:

---

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

---

en vba ca donne :

Code:

---

1 2 3 4 5 6 7 8 9

Sub MacroX()     Range("B1").Select ActiveCell.FormulaR1C1 = "=YEARFRAC(RC[-1],TODAY(),1)"     End Sub

---

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:

---

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...;)

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 ?

Ca doit t'aider !

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

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

Tu as testé

Code:

---

MsgBox DateDiff("yyyy", ladate, Now)

---

?

pourquoi Msgbox ?

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

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

Code:

---

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:

---

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

---

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

Code:

---

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:

---

1 2 3

Private Sub Workbook_Open() Age End Sub

---

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

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

Code:

---

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:

---

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+

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

Code:

---

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

---

Citation:

---

Envoyé par AlainTech

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

Code:

---

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

---

---

:hola::king:

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

Code:

---

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

---

Citation:

---

Envoyé par fring

Code:

---

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:

---

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

---

Citation:

---

Envoyé par AlainTech

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

Code:

---

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

---

---

oups...oui, merci pour cette rectification

Cela marche ...
Merci

Code:

---

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

---

Citation:

---

Envoyé par akira66fr

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