probleme de date urgent

[rebecca]

Bonjour a tous , j'ai un probleme de date et c'est trés urgent
J'ai une date de sinistre dans une cellule donc le 1/1/04 et une date d'achat dans une cellule qui est le 1/6/03 je voudrai en vba recupere le mois des deux dates et faire une soustraction entre les deux et ensuite recuperer l'année des deux dates et en faire une soustraction. Merci de m'aider

 

[dut-dut]

Regarde le fichier joint au post de Willy : "Concerne des formules à partir de dates "

Dans les cases D15 à D23 il affiche le temps écoulé entre 2 dates en jours, mois et années. Si c'est ça qui t'intéresse tu peux peut-être t'en inspirer.

 

[Abel]

Bonsoir rebecca, tous

Un peu à la bourre ...

En VB, ça pourrait donner ça :

Sub DifferenceDate()

DifferenceJours = CDate(Range("b1")) - CDate(Range("a1"))
DifferenceAnnees = Right(Range("b1"), 4) - Right(Range("a1"), 4)
DifferenceMois = DifferenceJours \ 30
MsgBox (DifferenceMois & " mois")
MsgBox (DifferenceAnnees & " année(s)")

End Sub


Pas forcément le plus académique, mais j'espère que ça te dépannera.