Probleme de Setfocus avec un bouton ANNULER

Salut j'ai un petit probleme avec un setfocus et un bouton annuler

en gros mon code ressemble à ça

Private Sub Text_TotalAllu_LostFocus()
  If ((Val(Text_TotalAllu) < 10) Or (Val(Text_TotalAllu) > 20) Or (Text_TotalAllu = "")) Then
     MsgBox ("Une erreur s'est produite au niveau de la saisie du nombre d'allumettes")
     Text_TotalAllu = ""
      Text_TotalAllu.SetFocus
   End If 
End Sub

Si mon champt nest mal rempli alors on le remet vide et on positionne l'utilisateur jusqu'à temps que ça soit bon...mais le probleme est que si l'utilisateur veut partir de l'application en cliquant sur le bouton annuler il ne peut pas ! il doit remplir le champ d'abord...
comment je peux faire pour éviter cela ?
merci d'avance

Si tu as un bouton "annuler", je suppose que tu as aussi un bouton "valider" ou "ok". Je te propose de faire ton test au moment ou tu valides. De cette manière, tu ne fais pas une boucle avec le focus. De plus, ça te permet de regrouper l'ensemble de tes contrôles de "présence texte" et ainsi compresser ton code.


Utilises un groupe de textbox (textbox1(0), textbox1(1),...,textbox1(5))

met ça dans ton bouton valider:

'initialisation de la variable
erreur=-1

'boucle de contrôle de l'état de tes textbox
for n=5 to 0 step -1
if textbox1(n).text="" then erreur=n
next n

'définition du message d'erreur si présence d'erreur
select case erreur
case 0
message="du nombre d'allumettes"
case 1
message="du nom du joueur
...
end select

'en cas d'erreur
if erreur >-1 then
      w=msgbox("Erreur sur la saisie " & message) 'msgbox
      textbox1(erreur).setfocus'positionnement sur la textbox en défaut
      exit sub'quitter le sub en cours
end if

'Puis tu mets ton code correspondant au boutton valider


Jer

Il existe un evenement spécial pour ce genre de test. Il s'agit de l'EVT Validate(). Il se déclenche pour un controle lorsque celui-ci perd le focus au profit d'un autre controle dont la propriété CausesValidation est à True (qui est la valeur apr défaut). Donc, il te suffit de faire un truc du genre Private Sub Text_TotalAllu_Validate(Cancel As Boolean) If ((Val(Text_TotalAllu.Text) < 10) Or (Val(Text_TotalAllu.Text) > 20) Or (Text_TotalAllu.Text = "")) Then MsgBox ("Une erreur s'est produite au niveau de la saisie du nombre d'allumettes") Text_TotalAllu.Text = "" Cancel = True End If End Sub ... et de mettre la propriété CausesValidation à False pour ton bouton ANNULER.

Je ne vois pas à quoi te sert le CausesValidation dans le bouton ANNULER tu ne veux pas plutôt mettre Cancel = False ? Private Sub bt_annuler_Click() Cancel = False Saisie1Joueur.Hide End Sub merci

Non !!! Le CausesValidation à False pour le bouton Annuler (c'est une propriété du bouton, pas a mettre dans un EVt quelconque), pemet d'indiquer que si un controle perd le focus en faveur de ton bouton Annuler, l'EVT Validate() du controle perdant le focus ne sera pas traiter ! Et dans l'EVT Validate() du textbox (evt qui sera donc déclencher si cette textbox perd le focus en faveur d'un autre controle que le bouton Annuler -dont le causesvalidation est à False-), si les condition ne sont aps rempli pour que la valeur de al textbox soit OK, tu mets le parametre Cancel à True, pour que en sortie de l'EVT, Widnows redonne le focus à la textbox CR

désolé mais ça ne fonctionne pas :s... enfin si mais il teste quand je suis dans le champ ou je dois mettre le nombre d'allumer quand je place mon curseur dedant. Par contre si je veux faire annuler il refuse. toujours mon message d'erreurs sur le nombre d'allumettes :s il faudrait faire appel de cette fonction sans le bouton valider_click() non ?

En fait j'ai 2 champs à remplir avant de valider -le nom du joueur -le nombre d'allumettes

Si tu as bien mis la propriété CausesValidation du bouton ANNULER à False, l'EVT Validate() de ta textbox ne doit pas se déclencher si tu cliques sur le bouton ANNULER ! Par contre si tu as un bouton VALIDER, lui, il doit avoir sa propriété CausesValidation à True et si tu cliques dessus, la, l'EVT Validate de la textbox doit se déclencher, et donc vérifier la bonne saisie dans la textbox. Si la saisie est érronée, un coup de MsgBox et un Cancel à True et ca le fait ! Impossible que cela ne fonctionne pas ! Ou alors je m'exprime mal ? Ou alors tu es fatigué ? alcoolisé ? les trois en même temps ? CR

C'est pas pour être désagréable mais non... Il me bloque toujours sur mon champ pas rempli et impossible d'appuyer sur le bouton annuler le message me revient toujours ! voilà mon code : BOUTON ANNULER : Private Sub bt_annuler_Click() CausesValidation = False Saisie1Joueur.Hide End Sub BOUTON VALIDER : Private Sub bt_valider_Click() CausesValidation = True // je passe tout les codes inutiles End Sub TEXTBOX1 (saisir le nom du joueur) Private Sub Text_Joueur1_Validate(Cancel As Boolean) If Text_Joueur1 = "" Then MsgBox ("Vous avez oublié d'insérer votre nom") Text_Joueur1 = "" Cancel = True End If End Sub TEXTBOX2 (saisir le nombre d'allumettes) Private Sub Text_TotalAllu_Validate(Cancel As Boolean) If ((Val(Text_TotalAllu.Text) < 10) Or (Val(Text_TotalAllu.Text) > 20) Or (Text_TotalAllu.Text = "")) Then MsgBox ("Une erreur s'est produite au niveau de la saisie du nombre d'allumettes") Text_TotalAllu.Text = "" Cancel = True End If End Sub Voilà en plus de ça j'ai remarqué que si je cliquais sur le bouton valider une premiere fois...je ne pouvais plus cliquer sur valider ou annuler ensuite (pourtant ils ne sont pas grisés) merci pour la patience lol

Tu n'as pas à modifier la valeur de "CausesValidation" dans les evt Click de tes boutons !!!!!!!! En mode design, sur ta fenetre, tu sélectionnes ton bouton ANNULER et dans la liste de ses propriétés (en bas à gauche par défaut sous VS6), tu passes la valeur de CausesValidation = True. Et point barre ! Pour les deux textbox, c'est OK ! Le code est bon. Pour le code des boutons, dans le ANNULER, tu laisses juste le machin.Hide, et pour le bouton VALIDER, tu laisses le code que tu n'as pas recopié dans ton message ci-dessus ... et ca suffit