comparaison date

[BBX]

Boujour,

Je souhaite via une macro comparer deux dates prises dans des cellules et trouver le nombre de jour/mois/année entre ces deux dates

J'ai fait basiquement Ecartdate=datemax-datemin avec Ecatdate, datemax et datemin As Date mais ça ne fonctionne pas.

Je veux bien entendu pouvoir exploiter le nombre de jours, le nombre de mois et le nombre d'année séparemment.

Merci de votre aide.

 

[Minick]

Salut,

Essaie ceci:

Sub Ecart()
Dim Datemin As Date
Dim Datemax As Date

Dim EcartDate As Date

Datemin = Range("A1")
Datemax = Range("B1")

EcartDate = Datemax - Datemin

MsgBox Day(EcartDate) & " " & Month(EcartDate) & " " & Year(EcartDate) - 1900
End Sub


Tu peux egalement regarder du coté de la fonction 'DateDiff' qui pourra peut etre te servir


@+ Minick