[VBA-E]Gèrer les erreurs de saisie de dates

Salut,
je suis sur une boite de dialogue qui fait des calculs sur une base de données datée.
J'ai inclut une boite de dialog 'erreur' quand les saisies du jour (début et fin), du mois (d/f) et année (d/f) ne sont pas chronologiques mais j'ai des apparitions de ma boite 'erreur' injustifiées suivant l'ordre de mes rentrées de dates.

ex: je rentre ma date début '04' --> Juillet --> 2001 puis ma date fin '15' --> 'Février' --> 2009 et à ce moment la 'erreur' apparait alors que cette période est valable chrnolgmt.

Alos dans un ordre différent (jj --> mm-->aa) cela marche mais je voudrais qqch qi marche tt ltps.
Si qq1 avait un gestionnaire de dates propre et complet à me monter, je lui en serais reconnaissant.

Si vous avez besoin de précisions, n'hésitez pas.

Sans voir ton code, il y a peu de chance qu'on puisse t'aider...

Voilà ce que j'ai fais mais selon l'ordre où je rentre mes éléments de dates.
Genre j'ai date de début '9 mars 2004' et date de fin '12 février 2008' alors
->si on rentre les dates dès l'ouverture de la boîte et que le mois de déb. est supérieur au mois de fin le message = ça marche
->si on rentre ces mois après un message d'erreur (on s'est trompé et on corrige) = ça marche pas

et cela pareil pour les années, mais en réalité mon exemple est un peu sommaire puisque qu'il y a d'autres possibilités pour lesquelles ça ne marche pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
Private Sub jourdeb_Change()
Range("m5") = Val(jourdeb)
If Range("m4") <> "" And Range("m1") <> "" And Range("m2") <> "" And Range("m6") <> "" And Range("m3") <> "" And Range("m1") = Range("m2") And Range("m3") = Range("m4") And Range("m5") > Range("m6") Then
erreur.Show
End If
 
End Sub
 
Private Sub jourfin_Change()
Range("m6") = Val(jourdeb)
If Range("m4") <> "" And Range("m1") <> "" And Range("m2") <> "" And Range("m5") <> "" And Range("m3") <> "" And Range("m1") = Range("m2") And Range("m3") = Range("m4") And Range("m6") < Range("m5") Then
erreur.Show
End If
End Sub
 
Private Sub moisdeb_Change()
 
Range("m3") = moisdeb
If Range("m3") = "Janvier" Then
Range("m3") = "1"
End If
If Range("m3") = "Février" Then
Range("m3") = "2"
End If
If Range("m3") = "Mars" Then
Range("m3") = "3"
End If
If Range("m3") = "Avril" Then
Range("m3") = "4"
End If
If Range("m3") = "Mai" Then
Range("m3") = "5"
End If
If Range("m3") = "Juin" Then
Range("m3") = "6"
End If
If Range("m3") = "Juillet" Then
Range("m3") = "7"
End If
If Range("m3") = "Août" Then
Range("m3") = "8"
End If
If Range("m3") = "Septembre" Then
Range("m3") = "9"
End If
If Range("m3") = "Octobre" Then
Range("m3") = "10"
End If
If Range("m3") = "Novembre" Then
Range("m3") = "11"
End If
If Range("m3") = "Décembre" Then
Range("m3") = "12"
End If
 
If Range("m4") <> "" And Range("m1") <> "" And Range("m2") <> "" And Range("m1") = Range("m2") And Range("m3") > Range("m4") Then
erreur.Show
End If
 
Msgdate = "Du 01/" + moisdeb + "/" + anneedeb + " à Fin/" + moisfin + "/" + anneefin
 
End Sub
 
Private Sub moisfin_Change()
 
Range("m4").Value = moisfin
If Range("m4") = "Janvier" Then
Range("m4") = "1"
End If
If Range("m4") = "Février" Then
Range("m4") = "2"
End If
If Range("m4") = "Mars" Then
Range("m4") = "3"
End If
If Range("m4") = "Avril" Then
Range("m4") = "4"
End If
If Range("m4") = "Mai" Then
Range("m4") = "5"
End If
If Range("m4") = "Juin" Then
Range("m4") = "6"
End If
If Range("m4") = "Juillet" Then
Range("m4") = "7"
End If
If Range("m4") = "Août" Then
Range("m4") = "8"
End If
If Range("m4") = "Septembre" Then
Range("m4") = "9"
End If
If Range("m4") = "Octobre" Then
Range("m4") = "10"
End If
If Range("m4") = "Novembre" Then
Range("m4") = "11"
End If
If Range("m4") = "Décembre" Then
Range("m4") = "12"
End If
 
If Range("m3") <> "" And Range("m1") <> "" And Range("m2") <> "" And Range("m1") = Range("m2") And Range("m4") < Range("m3") Then
erreur.Show
End If
 
Msgdate = "Du 01/" + moisdeb + "/" + anneedeb + " à Fin/" + moisfin + "/" + anneefin
 
End Sub
 
Private Sub anneedeb_Change()
 
 
Range("m1") = Val(anneedeb)
 
If Range("m2") <> "" And Range("m2") < Range("m1") And Range("m2") <> 0 Then
erreur.Show
End If
If Range("m4") <> "" And Range("m3") <> "" And Range("m2") <> "" And Range("m3") > Range("m4") Then
erreur.Show
End If
 
Msgdate = " Dates choisies : Du  01 /" + moisdeb + "/" + anneedeb + " à Fin /" + moisfin + "/" + anneefin
 
 
End Sub
 
Private Sub anneefin_Change()
 
Range("m2") = Val(anneefin)
If Range("m1") <> "" And Range("m1") > Range("m2") Then
erreur.Show
End If
If Range("m4") <> "" And Range("m4") <> 0 And Range("m3") <> "" And Range("m1") <> "" And Range("m3") > Range("m4") Then
erreur.Show
End If
 
Msgdate = " Dates choisies : Du 01/" + moisdeb + "/" + anneedeb + " à Fin/" + moisfin + "/" + anneefin
 
End Sub

Si vous pouviez voir ce qu'il y a à modifier pr que ça fonctionne sans risque d'avoir ces erreurs anormales.

Merci

Tu devrais lire les règles du forum : Eviter le texte en gras (qui agresse le lecteur) et code entre balises CODE => Sélection du code + 1 clic sur #
Mais la lecture des règles t'apprendraient beaucoup de choses utiles pour tes recherches futures ;)
A+

PS - Bienvenue sur le forum ;)