OVH Cloud OVH Cloud

VBA - remettre le curseur dans le TextBox2 tant qu'il est vide

3 réponses
Avatar
twinley
Bonjour à tous,

J'ai un UserForm avec 2 TextBox et 2 boutons Annuler et OK.
Un nom doit est placé dans le TB1 et un chiffre doit être placé dans TB2.
Par sécurité, je dois envoyer un message si le TextBox2 reste vide et
renvoyer le curseur sur la saisie TB2.

J'ai mis ce qui suit dans le bouton OK quand je valide avec le TB2 vide.
Et j'obtiens bien le message.

If Me.TextBox2 = "" Then MsgBox ("mettez 1 ou 2 ou 3")

Mais comment remettre le curseur dans le TB2 tant qu'il est vide ?
Si je fais UsFhide, il faut recommencer la saisie de TB1.
Je souhaite reprendre la saisie de TextBox2 uniquement.

Merci pour l'aide

--
à+twinley

3 réponses

Avatar
Michel Pierron
Bonjour twinley;

If Me.TextBox2 = "" Then
MsgBox ("mettez 1 ou 2 ou 3")
TextBox2.SetFocus
Exit Sub

MP

"twinley" a écrit dans le message de
news:

Bonjour à tous,

J'ai un UserForm avec 2 TextBox et 2 boutons Annuler et OK.
Un nom doit est placé dans le TB1 et un chiffre doit être placé dans TB2.
Par sécurité, je dois envoyer un message si le TextBox2 reste vide et
renvoyer le curseur sur la saisie TB2.

J'ai mis ce qui suit dans le bouton OK quand je valide avec le TB2 vide.
Et j'obtiens bien le message.

If Me.TextBox2 = "" Then MsgBox ("mettez 1 ou 2 ou 3")

Mais comment remettre le curseur dans le TB2 tant qu'il est vide ?
Si je fais UsFhide, il faut recommencer la saisie de TB1.
Je souhaite reprendre la saisie de TextBox2 uniquement.

Merci pour l'aide

--
à+twinley


Avatar
Daniel
textbox2.setfocus ?
Daniel
"twinley" a écrit dans le message de news:


Bonjour à tous,

J'ai un UserForm avec 2 TextBox et 2 boutons Annuler et OK.
Un nom doit est placé dans le TB1 et un chiffre doit être placé dans TB2.
Par sécurité, je dois envoyer un message si le TextBox2 reste vide et
renvoyer le curseur sur la saisie TB2.

J'ai mis ce qui suit dans le bouton OK quand je valide avec le TB2 vide.
Et j'obtiens bien le message.

If Me.TextBox2 = "" Then MsgBox ("mettez 1 ou 2 ou 3")

Mais comment remettre le curseur dans le TB2 tant qu'il est vide ?
Si je fais UsFhide, il faut recommencer la saisie de TB1.
Je souhaite reprendre la saisie de TextBox2 uniquement.

Merci pour l'aide

--
à+twinley


Avatar
twinley
Choli le coup du End Sub

un tuc à tiroir...

Merci Michel, merci Daniel

ne dit on pas que Michel et Daniel sont deux noms qui vont très bien
ensemble, très bien ensemble poum poum poum.
Un des deux prénom est au féminin, je sais, pas d'ambiguité !

:-[

à+twinley 8-)


Bonjour à tous,

J'ai un UserForm avec 2 TextBox et 2 boutons Annuler et OK.
Un nom doit est placé dans le TB1 et un chiffre doit être placé dans TB2.
Par sécurité, je dois envoyer un message si le TextBox2 reste vide et
renvoyer le curseur sur la saisie TB2.

J'ai mis ce qui suit dans le bouton OK quand je valide avec le TB2 vide.
Et j'obtiens bien le message.

If Me.TextBox2 = "" Then MsgBox ("mettez 1 ou 2 ou 3")

Mais comment remettre le curseur dans le TB2 tant qu'il est vide ?
Si je fais UsFhide, il faut recommencer la saisie de TB1.
Je souhaite reprendre la saisie de TextBox2 uniquement.

Merci pour l'aide