syntaxe datediff VBA

**akira66fr** · 27/02/2008, 18h28

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** · 27/02/2008, 18h34

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** · 27/02/2008, 18h54

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** · 27/02/2008, 19h03

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