Discussion :

[Dynea]

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...

ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[ouskel'n'or]

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

[cwain]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Salut

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

Starec

[Dynea]

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....

[cwain]

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

Ce cas est envisagé sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ElseIf DatDeb <> "" Then

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

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 ?