formule avec des guillemets sous VBA

[Matt_RMS]

Bonjour a tous,

Je suis en train de programmer une petite maccro sous VBA.
Cette maccro permet de calculer l age de personnes grace a la formule :

date_naissance = Cells(33,i).value
formule2 = '=DATEDIF(' & date_naissance & ', MAINTENANT(), 'y')'
Cells(34, i).Select
ActiveCell.Formula = formule2

Le 'y' indique que je veux calculer l age en année. Les guillemets sont indispensables mais evidemment la compilation sous VBA me sort une erreur :'(

Pourriez vous m indiquer une solution a ce probleme???
Merci d avance

Matt

 

[2passage]

Bonjour,

A priori DATEDIFF n'est pas une fonction de feuille de calcul (en tout cas pas dans ma version).
De plus, le 'MAINTENANT()' ne sera pas compris si tu utilise .formula (pour les fonction feuille de calcul en français il faut utiliser Formulalocal)
Enfin, pourquoi utiliser une formule plutot que renvoyer la valeur dans la cellule ? sinon, je te propose les méthodes suivantes :

Age = Date - date_naissance / 365
ou
Age = Year(Date) - Year(date_naissance)
ou
Age = DateDiff('yyyy', date_naissance, Date)

puis

Cells(34, i).Value = Age

A+