Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
End If
End Sub
Sub Affiche_USF()
UserForm1.Show
UserForm1.TextBox1.SetFocus
End Sub
Bonne journée
Complément d'infos:
Tu peux aussi jouer sur les propriétés "TabIndex" de tes textBoxes dans la fenêtre des propriétés. Dans ton cas, il était à 11 pour le text box1 et incrémenté pour les suivants. En le passant à 1, le code ci-dessus est inutile.
Quand tu crées ton userform, le Tab index de chaque objet est incrémenté à sa création, c'est le cas aussi pour les labels. Si tu crées le label en premier, il aura ppour tab index 1. etc...