Comparer une date à celle d'aujourd'hui

Comment comparer une date entrée par un utilisateur à celle d'aujourd'hui ?

sub ComparaisonDates()
Mavaleur = CDate(InputBox("Saisissez votre date"))
If Mavaleur > Date Then
SupInf = " est postérieur à aujourd'hui, "
ElseIf Mavaleur SupInf = " est antérieur à aujourd'hui, "
Else: SupInf = " c'est aujourd'hui, "
End If
MsgBox "le " & Mavaleur & SupInf & Date
end sub
Auteur(s) : 

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 7 pages modifiées.