Forcer le SETFOCUS

[herve62]

Bonjour
Ce n'est pas la 1ére fois , mais d'habitude le code de la box s'arrête donc j'ai pas le soucis
Ici dans l'exemple le code doit continuer
En fait au début je traite la validité d'une date , si Erreur on efface et remet le curseur dans la box
Mais le SETFOCUS n'a pas l'air d'agir ,

Private Sub TextBox1_AfterUpdate()
If Not IsDate(TextBox1.Value) Then
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        TextBox1.SetFocus
End If
Tr = 0
date_P = CDate(TextBox1.Value)

Donc en cas d'erreur , j'ai le message mais ensuite Erreur sur date_P ,car ne redemande pas une nouvelle date


Quelle est la bonne méthode que je garde une fois pour toute ?
Merci

 

[francedemo]

Re : Forcer le SETFOCUS

bonjour hervé,
as tu essayé avec un do...while ?

do while dt=false
   If Not IsDate(TextBox1.Value) Then
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        TextBox1.SetFocus
        dt=false
   else:
        dt=true
   End If
loop

je ne maitrise pas trop encore ce type de fonction mais sur le papier, ça peut répondre à ton besoin
j'ai fais un essais avec un range et ça fonctionne chez moi
à+

 

[Dranreb]

Re : Forcer le SETFOCUS

Bonjour
Essayez plutôt BeforeUpdate: il admet un paramètre Cancel qui permet d'empêcher de quitter le contrôle.
Cordialement

 

[herve62]

Re : Forcer le SETFOCUS

Bonjour Francedemo
DSL , mais ca boucle sur le message d'erreur ( msgbox), donc le SET FOCUS , ne sert encore à RIEN !!!!!!!!!!!!

 

[herve62]

Re : Forcer le SETFOCUS

Dranreb
Le BeforeUpdate n'est pas accepté avec ce code ( erreur de compil.)

 

[francedemo]

Re : Forcer le SETFOCUS

et avec un "enter" ?

dim txt1 as bolean
Private Sub TextBox1_Enter()
If Not IsDate(TextBox1.Value) Then
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        TextBox1.SetFocus
Else:
   txt1=true
End If
end sub

la variable "txt1" est à récupérer pour la suite de ton besoin
à+

 

[Robert]

Re : Forcer le SETFOCUS

Bonjour le fil, bonjour le forum

Voilà ce que dis l'aide VBA :
L'événement AfterUpdate se produit après l'événement BeforeUpdate et avant l'événement Exit pour le contrôle actif et avant l'événement Enter pour le contrôle suivant dans l'ordre de tabulation

Donc le focus est toujours dans la TextBox. Comme Bernard, je préconise l'événement BeforUpdate voire même Exit...

[Édition]
Peut-être comme ça :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Value) Then
        Cancel = True
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        Exit Sub
End If
Tr = 0
date_P = CDate(TextBox1.Value)
End Sub

 

[herve62]

Re : Forcer le SETFOCUS

SLT Robert
Là avec ton code ça fonctionne très bien, mais bizarre en + de 10ans j'ai jamais utilisé ce type de Sub !!!
Il subsiste un petit hic !!! , si après erreur je décide de quitter ( bouton ANNULER) , le MSGBOX persiste ???

PS: Je change d'hosto , je quitte Lille à 14H pour un Hosto sur St omer ( encore 10 jours) et je devrais aussi avoir WIFI mais je verrai , Si je ne réponds plus vous saurez pourquoi !!

 

[Robert]

Re : Forcer le SETFOCUS

Bonjour le fil, bonjour le forum,

Oui c'est le problème avec l'événement Exit d'une Textbox. Si tu décides de quitter l'Userform et que le focus se trouve dans la Textbox le message s'affiche... Tu peut contourner en rajoutant :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1.Value = "" then Exit Sub
If Not IsDate(TextBox1.Value) Then
        Cancel = True
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        Exit Sub
End If
Tr = 0
date_P = CDate(TextBox1.Value)
End Sub

Sinon, moi je reste dans le même hosto mais ils me rajoutent une camisole de force...

 

[herve62]

Re : Forcer le SETFOCUS

Merci pour tout, ca fonctionne
A+

PS: c'était une opération du coeur il y a 7 jours !!!!