MsgBox sur date antérieur à une certaine date
Bonjour et merci pour tous vos excellents services. J’ai un champ date que je sélectionne avec le datepicker. Si mon année est égale à l’année d’aujourd’hui pas de problème. Mon problème est la ligne 4. Je voudrais que le MsgBox apparaisse à toutes les dates plus petites que le mois d’avril de l’année passée, même si je choisis une date en 1976. Pour le moment sa fonction si je choisis mars 2022, mais ça ne fonctionne pas si je choisis décembre 2021.
Code:
1
2
3
4
5
6
7
8
| If (Year(MonChampDate)) = (Year(Date)) Then
Exit Sub
Else
If (Month(MonChampDate)) < 4 Then
MsgBox ("La date doit être entre 01 avril et le 31 mars de la période !"), vbInformation
Exit Sub
End If
End If |
