XL 2019 Focus sur la date

natorp · 6 Juillet 2024

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 · 6 Juillet 2024

Bonjour natorp,

VB:

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

A+

job75 · 6 Juillet 2024

Bonjour natorp,

VB:

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

A+

natorp · 6 Juillet 2024

Super, merci Job75
Efficace comme toujours
Bon WE

XL 2019 Focus sur la date

natorp

XLDnaute Accro

Pièces jointes

job75

job75

XLDnaute Barbatruc

natorp

XLDnaute Accro

Discussions similaires