Mon pb
J'entre une valeur dans mon TextBox1
si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus)
(apres effaçage de tout mes TextBox (en tout 8) dans une autre sub )
mais je passe toujours le focus sur TextBox2
ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean)
T_CodeProd = UCase(T_CodeProd)
Valider_Code (T_CodeProd)
If truc = False Then
mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation,
"Validation du code produit")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
QuiConnaitLesSpams
Laissez tomber! j'ai trouvé en remplaçant TextBox1.setfocus pa cancel=true et TextBox2 par cancelúlse
Salut à tous
Mon pb J'entre une valeur dans mon TextBox1 si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus) (apres effaçage de tout mes TextBox (en tout 8) dans une autre sub ) mais je passe toujours le focus sur TextBox2 ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean) T_CodeProd = UCase(T_CodeProd) Valider_Code (T_CodeProd)
If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Else TextBox2.SetFocus End If
End Sub
Laissez tomber!
j'ai trouvé
en remplaçant TextBox1.setfocus pa cancel=true
et TextBox2 par cancelúlse
Salut à tous
Mon pb
J'entre une valeur dans mon TextBox1
si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus)
(apres effaçage de tout mes TextBox (en tout 8) dans une autre sub )
mais je passe toujours le focus sur TextBox2
ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean)
T_CodeProd = UCase(T_CodeProd)
Valider_Code (T_CodeProd)
If truc = False Then
mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation,
"Validation du code produit")
Laissez tomber! j'ai trouvé en remplaçant TextBox1.setfocus pa cancel=true et TextBox2 par cancelúlse
Salut à tous
Mon pb J'entre une valeur dans mon TextBox1 si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus) (apres effaçage de tout mes TextBox (en tout 8) dans une autre sub ) mais je passe toujours le focus sur TextBox2 ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean) T_CodeProd = UCase(T_CodeProd) Valider_Code (T_CodeProd)
If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Else TextBox2.SetFocus End If
End Sub
michdenis
Bonjour,
Tu as omis d'ajouter Cancel = True
'---------------------- If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Cancel = True Else TextBox2.SetFocus End If '----------------------
Salutations!
"QuiConnaitLesSpams" a écrit dans le message de news:
Salut à tous
Mon pb J'entre une valeur dans mon TextBox1 si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus) (apres effaçage de tout mes TextBox (en tout 8) dans une autre sub ) mais je passe toujours le focus sur TextBox2 ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean) T_CodeProd = UCase(T_CodeProd) Valider_Code (T_CodeProd)
If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Else TextBox2.SetFocus End If
End Sub
Bonjour,
Tu as omis d'ajouter Cancel = True
'----------------------
If truc = False Then
mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation,
"Validation du code produit")
TextBox1.SetFocus
Cancel = True
Else
TextBox2.SetFocus
End If
'----------------------
Salutations!
"QuiConnaitLesSpams" <QuiConnaitLesSpams@discussions.microsoft.com> a écrit dans le message de news:
CE629A6A-E263-4CAD-8F49-88BDE227FEDC@microsoft.com...
Salut à tous
Mon pb
J'entre une valeur dans mon TextBox1
si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus)
(apres effaçage de tout mes TextBox (en tout 8) dans une autre sub )
mais je passe toujours le focus sur TextBox2
ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean)
T_CodeProd = UCase(T_CodeProd)
Valider_Code (T_CodeProd)
If truc = False Then
mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation,
"Validation du code produit")
'---------------------- If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Cancel = True Else TextBox2.SetFocus End If '----------------------
Salutations!
"QuiConnaitLesSpams" a écrit dans le message de news:
Salut à tous
Mon pb J'entre une valeur dans mon TextBox1 si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus) (apres effaçage de tout mes TextBox (en tout 8) dans une autre sub ) mais je passe toujours le focus sur TextBox2 ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean) T_CodeProd = UCase(T_CodeProd) Valider_Code (T_CodeProd)
If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Else TextBox2.SetFocus End If
End Sub
QuiConnaitLesSpams
Merci de ta reponse et bonne soiree
Bonjour,
Tu as omis d'ajouter Cancel = True
'---------------------- If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Cancel = True Else TextBox2.SetFocus End If '----------------------
Salutations!
"QuiConnaitLesSpams" a écrit dans le message de news:
Salut à tous
Mon pb J'entre une valeur dans mon TextBox1 si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus) (apres effaçage de tout mes TextBox (en tout 8) dans une autre sub ) mais je passe toujours le focus sur TextBox2 ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean) T_CodeProd = UCase(T_CodeProd) Valider_Code (T_CodeProd)
If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Else TextBox2.SetFocus End If
End Sub
Merci de ta reponse et bonne soiree
Bonjour,
Tu as omis d'ajouter Cancel = True
'----------------------
If truc = False Then
mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation,
"Validation du code produit")
TextBox1.SetFocus
Cancel = True
Else
TextBox2.SetFocus
End If
'----------------------
Salutations!
"QuiConnaitLesSpams" <QuiConnaitLesSpams@discussions.microsoft.com> a écrit dans le message de news:
CE629A6A-E263-4CAD-8F49-88BDE227FEDC@microsoft.com...
Salut à tous
Mon pb
J'entre une valeur dans mon TextBox1
si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus)
(apres effaçage de tout mes TextBox (en tout 8) dans une autre sub )
mais je passe toujours le focus sur TextBox2
ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean)
T_CodeProd = UCase(T_CodeProd)
Valider_Code (T_CodeProd)
If truc = False Then
mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation,
"Validation du code produit")
'---------------------- If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
TextBox1.SetFocus Cancel = True Else TextBox2.SetFocus End If '----------------------
Salutations!
"QuiConnaitLesSpams" a écrit dans le message de news:
Salut à tous
Mon pb J'entre une valeur dans mon TextBox1 si la valeur est correcte je passe a TextBox2 ( ici pas de pb)
si elle est fausse je veux rester sur TextBox1 (garder le focus) (apres effaçage de tout mes TextBox (en tout 8) dans une autre sub ) mais je passe toujours le focus sur TextBox2 ou est l'erreur ??? Merci
Private Sub TextBox1_exit(ByVal cancel As msforms.ReturnBoolean) T_CodeProd = UCase(T_CodeProd) Valider_Code (T_CodeProd)
If truc = False Then mess = MsgBox("Ce code éxiste déjà, en saisir un autre!", vbInformation, "Validation du code produit")
