[VBA-E] Conserver le curseur dans boîte de texte

J'ai un formulaire qui contient une boîte de texte. Une validation vérifie que la donnée entrée est une valeur numérique. Sinon, un Msgbox apparaît et demande de recommencer l'entrée avec une valeur numérique.

Le problème est que lorsque j'appuie sur le OK de ce Msgbox, la boîte de texte ne possède plus le curseur et rien ne se produit si j'appuie sur les touches du clavier....

Je dois obligatoirement cliquer dans la boîte de texte avec la souris afin de replacer le cuseur. Je voudrais que le curseur demeure ou réapparaisse automatiquement dans la boîte de texte...J'ai essayé "setfocus" comme ci-dessous, sans succès...:cry:

ex:

Code:

---

1 2 3

If not isnumeric(Userform1.Textbox2.value) then Msgbox " Entrer une valeur numérique" Textbox2.setfocus

---

Merci

Dans quel événement places-tu ce code ?

Hello,
J'ai eu ce problème ce matin, voilà mon code
Dans ce cas, ça vérifie que la valeur textbox est une date, et si oui, ça la convertit au format que je veux, sinon msgbox et retour dans la textbox

En fait le tout est d'utiliser l'évènement Exit(ByVal Cancel As MSForms.ReturnBoolean) et de régler cancel=true après ta msgbox, comme ça le curseur revient dedans

Code:

---

1 2 3 4 5 6 7 8

Private Sub DatDeb_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(DatDeb) = True Then DatDeb = Format(DatDeb, "dd/mm/yyyy") ElseIf DatDeb <> "" Then MsgBox "Date incorrecte, veuillez réessayer" Cancel = True End If End Sub

---

Salut

Ok cwain, mais si tu veux quitter ta textbox sans saisir que se passe-t-il ?

Starec

Salut,

J'ai essayé et le curseur ne réapparaît pas dans la boîte de texte lorsque l'on frappe OK dans le MsgBox. Je ne peux pas quitter la boîte mais on dirait que la boîte à perdu le focus...Peu importe quelles touches je frappe, rien ne se passe.

J'aimerais utiliser "before update" afin de valider l'entrée de chaque boîte individuellement....

Citation:

---

Ok cwain, mais si tu veux quitter ta textbox sans saisir que se passe-t-il ?

---

Ce cas est envisagé sur cette ligne

Code:

---

ElseIf DatDeb <> "" Then

---

comm ça si la valeur de DatDeb est vide il ne se passe rien.

Citation:

---

J'ai essayé et le curseur ne réapparaît pas dans la boîte de texte lorsque l'on frappe OK dans le MsgBox. Je ne peux pas quitter la boîte mais on dirait que la boîte à perdu le focus...Peu importe quelles touches je frappe, rien ne se passe.

---

Je comprends pas, j'ai réessayé chez moi ça marche bien. J'ai peut-être pas précisé que DatDeb était le nom de ma textbox. Le code est associé à cette textbox. Tu as pu t'en sortir depuis ?

Je travaille toujours sur le poblème mais je crois que je commence à comprendre ... J'ai vérifié et ton code fonctionne parfaitement lorsque les deux boîtes sont placées directment dans un formulaire (Userform).

Mes deux boîtes sont placée sur une page d'un multipage qui lui est sur un formulaire (Userform)...

Je ne sais pas encore comment faire mais il semble y avoir une différence...

OK, j'ai essayé avec un contrôle multipage sur un petit fichier que je te passe, si tu veux, mais je suis pas sûr d'avoir tout compris.
Je vois bien une boîte (ta textbox) mais la deuxième ? une autre textbox à la suite ? Excuse moi, c'est le matin, tous les neurones sont pas encore actifs...:zzz:

Salut,

On peut dire que ton petit exemple valait son pesant d'or.... J'ai pu le comparer avec le mien et la seule différence entre les deux est que ton userform contient un bouton commande OK. J'ai vérifié et même si ce dernier ne contient aucun code, il semble necessaire. Si tu l'enlèves, tu te retrouves avec le problème que je décrivais antérieurement. Pour obtenir exactement ce que je désire, je n'ai eu qu'à mettre la propriété visible du bouton à false.

Cependant, chaque boîte contenue dans un multipage semble avoir besoin de son propre bouton commande visible ou non (ex: 30 boîtes = 30 boutons dans une page). Est-ce une bonne hypothèse...suggestions

merci

Je pense que c'est une histoire de focus. dans l'aide de VBA, ils disent :

Citation:

---

Exit se produit immédiatement avant qu'un contrôle perde le focus au profit d'un autre contrôle de la même feuille.

---

ce qui explique que le code associé aux textboxs ne se déclenchent pas si tu n'as qu'un seul contrôle par page.
J'essaie de trouver un truc pour éviter que tu aies un autre contrôle à rajouter par feuille...

Je suis pris avec la containte de rajouter un contrôle pour chaque boite de texte contenue dans un formulaire si je veux que le curseur revienne dans la boite de texte après avoir échoué une vérification. La vérification étant une fenêtre qui me demande d'entrez une valeur numérique. En cliquant sur le OK de la fenêtre, la boîte de texte perd le focus. J'ai essayé sans succès set.focus dans la boîte de texte.

Le formulaire devient assez lourd lorsqu'il contient 10 ou 15 boîte de texte (+ 10 ou 15 boutons commande que je dois rendre invisible). Il y-a-t'il un autre moyen

Cwain t'a donné ce code

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub DatDeb_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(DatDeb) = True Then DatDeb = Format(DatDeb, "dd/mm/yyyy") ElseIf DatDeb <> "" Then MsgBox "Date incorrecte, veuillez réessayer" Cancel = True DatDeb.setfocus End If End Sub

---

Il me semble qu'il manque juste la ligne en rouge
Tu dis (je n'ai pas tout relu)
A+

Salut,

Même si j'ajoute cette ligne de code, le curseur ne revient pas dans la boîte de texte initiale. Je dois replacer le curseur dans la boîte de texte avec le curseur...

J'ai testé ça tel quel

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TextBox1) = True Then TextBox1 = Format(TextBox1, "dd/mm/yyyy") ElseIf TextBox1 <> "" Then MsgBox "Date incorrecte, veuillez réessayer" Cancel = True TextBox1.SetFocus End If End Sub

---

Et le curseur retourne bien dans TextBox1 8O
Est-tu sûr que tu n'utilises pas un événement de DatDeb qui contrarie le Set.focus ?

:salut:

Eureka...Après des jours et des jours de recherche, j'ai finallement trouvé... La propriété Modal de mon Formulaire doit être absolument à "true". Sinon le focus est perdu même si le code dans la boîte de texte dit de revenir au même endroit (set.focus).

Merci de votre aide