XL 2019 Focus sur la date

[natorp]

Bonjour à toutes et tous

Quand je clique sur le bouton "Intégrer en Compta" cela ouvre un userform où on doit choisir la date
Si on oublie la date il y a un message d'erreur et le userform se ferme
J'aimerais que le focus revienne sur le champ date plutôt que sortir du userform

Merci pour votre aide, cordialement, Gérard

 

[job75]

Bonjour natorp,

Private Sub CommandButton1_Click()
If DTPDate2 = "" Then MsgBox "Vous devez renseigner la date !", vbExclamation, "ATTENTION !": Exit Sub
'suite
Unload UserForm2
End Sub

A+

 

[natorp]

Super, merci Job75
Efficace comme toujours
Bon WE