Discussion :

[zzzmoi]

Bonjour,

J'ai besoin de votre aide car je suis sûre que d'autres ont rencontré le même problème.

Voici mon code (au complet) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'test si date fin < date début et l'initialise par déf à date début
 
Private Sub DateTimePicker8_ValueChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles DateTimePicker8.ValueChanged
 
   If DateTimePicker8.Value < DateTimePicker1.Value Then
 
      MessageBox.Show("La date de fin ne peut être antérieure à la date de début.", _
      "Erreur sur la date de fin", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
      End If
 
   'prend la date de début par défaut
   DateTimePicker8.Value = DateTimePicker1.Value 
 
End Sub

et voici mon problème :
lorsque je fais " DateTimePicker8.Value = DateTimePicker1.Value ", il relance "Private Sub DateTimePicker8_ValueChanged" (normal, j'ai changé ...8.Value) et me réaffiche le msgbox.

Où dois-je mettre le " DateTimePicker8.Value = DateTimePicker1.Value " pour qu'il ne relance pas la Sub ?

Merci pour vos réponses.


*** Y a vraiment personne qui a eu ce problème ? ***

[mow]

Salut,

Au lieu de comparer tes 2 dates au moment où ton DateTimePicker change de valeur : evenement ValueChanged fait le quand ton controle perd le focus evènement Leave je crois.

Mais sinon je trouve bizarre qu'il te réaffiche la MessageBox puisqu'il n'est sensé rentrer dans le "if" que si le DateTimePicker8 est strictement plus petit que le DateTimePicker1.
Et puis l'affectation de ton DateTimePicker8 doit se faire à l'intérieur du "if".

Mow