OVH Cloud OVH Cloud

Setfocus

1 réponse
Avatar
Florian
Bonjour, j'essaye dans un userform de faire un test avec des txtbox du genre
si
le txtbox est non rempli, cela lance le msgbox, puis met le curseur dans le
txtbox en question, mais apparemment il y a quelque chose qui ne fonctionne
pas.
Merci de votre aide

If Txtnom = "" Then
MsgBox "Vous devez saisir le nom.", vbInformation, "Désolé... "
Txtnom.SetFocus: Exit Sub
End If

1 réponse

Avatar
michdenis
Bonjour Florian,

Théoriquement cela devrait fonctionner SAUF si ceci est jumelé à certains événements. Pour t'aider, tu dois donner toute
ta procédure et spécifier sous quel événement tu as placé ce code...


Salutations!



"Florian" a écrit dans le message de news:
Bonjour, j'essaye dans un userform de faire un test avec des txtbox du genre
si
le txtbox est non rempli, cela lance le msgbox, puis met le curseur dans le
txtbox en question, mais apparemment il y a quelque chose qui ne fonctionne
pas.
Merci de votre aide

If Txtnom = "" Then
MsgBox "Vous devez saisir le nom.", vbInformation, "Désolé... "
Txtnom.SetFocus: Exit Sub
End If