Microsoft 365 Convertir en Nombre de mois

[PORCHER]

Bonjour,
Cela fait un moment que je recherche à convertir en VBA cette commande ;
NoLigne = Target.Row
D1 = Date de naissance
D2 = Date d'Aujourdhui

ActiveSheet.Cells(NoLigne, 6) = DATEDIF(D1;D2;"m")+(DATEDIF(D1;D2;"md")/JOUR(FIN.MOIS(D2;0)))

Merci de m'aider...
Cordialement

 

[pierrejean]

Bonjour Porcher

ActiveSheet.Cells(Noligne, 6) = "= DATEDIF(D1,D2,""m"")+(DATEDIF(D1,D2,""md"")/DAY(EOMONTH(D2,0)))"

 

[PORCHER]

Merci Pierrejean j'ai chercher sur le net et je n'ai pas trouvé de réponse comme celle ci
en ce qui me concerne je l'ai placé dans ma macro et fonctionne très bien.
Merci beaucoup