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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager