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