Discussion :

[dlight]

Bonjour à tous.

J'ai un Userform dans lequel j'ai un textbox qui devra contenir une date. Lors de la perte de focus du Texbox1, le code valide si l'utilisateur a inscrit une date avant la date de fin d'année.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox1_AfterUpdate()
Dim DateDeFin as date
If TextBox1 > dateDeFin Then
MsgBox "La date n'est..."
TextBox1.setfocus
Exit Sub
End If
End Sub

Mon but est que TextBox garde le focus afin de modifier la date alors qu'actuellement il change pour TextBox2.

Quelqu'un peut me dire ce que je ne fais pas de correct ?

Merci

[mercatog]

Utilise plutôt l'évènement exit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim DateDeFin As Date
'DateDeFin = DateSerial(Year(Date), 12, 31)
If TextBox1 <> "" Then
   If TextBox1 > DateDeFin Then
      Cancel = True
      TextBox1 = ""
      MsgBox "La date n'est..."
   End If
End If
End Sub

[dlight]

Merci à toi mercatog. C'est exactement ce que j'avais besoin. Désolé du délai de réponse, j'étais en vacance...