Utilisation de Setfocus

Bonjour,

Après avoir fait une recherche sur le forum, je n'ai pas trouvé ma réponse.

J'ai créé ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)   Dim T2 As String Dim ErreurOF As Byte     If IsNumeric(TextBox3.Text) = False Then T2 = "N'accepte que des chiffres entiers": ErreurOF = 1: GoSub Saut03 If Int(TextBox3.Text) <= 0 Then T2 = "Saisir un chiffre positif non nul": ErreurOF = 1: GoSub Saut03 GoSub Saut04   Saut03:     If ErreurOF = 1 Then: MsgBox "N°OF incorrect" & Chr(10) & T2: TextBox3.Text = ""   Saut04:     End Sub

---

Je n'arrive pas à placer Setfocus pour que mon curseur retourne dans la case textbox3 dès que l'on clique sur OK de la msgbox.
J'ai essayé de le mettre un peu partout dans le code sans résultat.

Quelle solution pouvez-vous m'apporter ? Ai-je trop compressé mon code ? Dois-je utiliser autre chose que Setfocus ?

En vous remerciant

Bonjour, je pense que le Setfocus sert à pointer informatiquement un objet, et ne modifie pas la position de ton curseur

Bonjour,

Le but : Quand j'ai mon message d'erreur via la Msgbox, le curseur doit retourner sur cette même case. Donc repointer sur cette textbox et ne pas pointer sur celui d'après.

Si j'utilise une autre formulation cela fonctionne mais elle ne me convient pas. Je souhaite rester avec ce code.

Cordialement

Salut,

il te suffit pour cela de passer dans ton code la variable Cancel à True :)

bonjour,
test ça

Code:

---

1 2 3 4

If IsNumeric(Me.TextBox1) = False Then MsgBox "vous devez saisir un nombre entier positif <> 0": Me.TextBox1 = "": Me.TextBox1.SetFocus: Exit Sub 'C'est un numérique If CInt(Me.TextBox1) <> CDbl(Me.TextBox1) Then MsgBox "vous devez saisir un nombre entier positif <> 0": Me.TextBox1 = "": Me.TextBox1.SetFocus: Exit Sub 'c'est un nombre entier If Abs(Me.TextBox1) <> CInt(Me.TextBox1) Then MsgBox "vous devez saisir un nombre entier positif <> 0": Me.TextBox1 = "": Me.TextBox1.SetFocus: Exit Sub 'c'est un nombre positif If Abs(Me.TextBox1) = 0 Then MsgBox "vous devez saisir un nombre entier positif <> 0": Me.TextBox1 = "": Me.TextBox1.SetFocus: Exit Sub 'c'est =0

---

Bonjour à vous deux,

J'ai essayé Rudurupt, c'est le même résultat qu'avec mon code. J'avais fait la même chose avec GoSub. Le curseur va dans la textbox suivante, ce que je ne veux pas si la msgbox apparaît.
En cliquant sur OK, il faudrait que le curseur retourne sur ce textbox. Aurais-je bloqué quelquechose qui l'en empêche dans les propriétés?

jpcheck comment puis-je passer cancel à true ? Je ne comprends pas.
Je débute et ceci je ne l'ai pas encore vu.

Edit : Merci Jpcheck j'ai trouvé. En effet il faut passer cancel à true.

Sujet résolu, merci à vous

effectivement, mois je l'ai fait sur le bouton valider car tu ne peux pas faire un setfocus sur l’événement exit. car si tu sort du contrôle tu ne peux pas y passer le focus!

de toute les façons tu t'en moque de ce que saisie l'utilisateur, ce que tu veux c'est qu'il ne pollue pas ton fichier alors qualifie les données à la validation.

Citation:

---

Envoyé par rdurupt

effectivement, mois je l'ai fait sur le bouton valider car tu ne peux pas faire un setfocus sur l’événement exit. car si tu sort du contrôle tu ne peux pas y passer le focus!

de toute les façons tu t'en moque de ce que saisie l'utilisateur, ce que tu veux c'est qu'il ne pollue pas ton fichier alors qualifie les données à la validation.

---

J'ai saisis ce code qui fonctionne très bien désormais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)   'lorsque je quitte le contrôle NumOF, la méthode suivante s'éxécute '--------------------------------------------------------------------------------------------------------   Dim T2 As String Dim ErreurOP As Byte   If IsNumeric(TextBox3.Text) = False Then T2 = "N'accepte que des chiffres entiers": ErreurOP = 1: TextBox3.SetFocus: GoSub Saut03 If Int(TextBox3.Text) <= 0 Then T2 = "Saisir un chiffre positif non nul": ErreurOP = 1: TextBox3.SetFocus: GoSub Saut03 GoSub Saut04   Saut03: If ErreurOP = 1 Then MsgBox "N°OF incorrect" & Chr(10) & T2: TextBox3.Text = "" Cancel = True   Saut04:       End Sub

---

Ensuite sur mon bouton valider, j'ai écrit ce code, peut-être que je me répète.
Un point à améliorer sûrement, mais je vais étape par étape pour améliorer mon code. En tant que débutant ce n'est pas simple de réfléchir logiquement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub Bouton_Valider_Click()   '---------------------------------------------------------------------------------------------------- 'Test si boite complétement remplie Dim VariTexte: Dim Compt01: Dim toto VariTexte = "": Compt01 = 0   If TextBox1.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir Date" If TextBox2.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir Charge" If TextBox3.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir OF" If TextBox4.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir OP"   If Combo_NbPiéce.ListIndex = -1 Then VariTexte = VariTexte & Chr(10) & "Saisir Nombre de pièces" If ComboBox1.ListIndex = -1 Then VariTexte = VariTexte & Chr(10) & "Saisir Visa"   For T = 7 To 13 If Boite_Saisie.Controls("Label" & T).Caption = "" Then Compt01 = 1 Next T If Compt01 <> 0 Then VariTexte = VariTexte & Chr(10) & "Choisir un programme"     If VariTexte <> "" Then MsgBox VariTexte: Exit Sub '---------------------------------------------------------------------------------------------------- EcritSurFeuil1 '----------------------------------------------------------------------------------------------------   '---------------------------------------------------------------------------------------------------- EffaceRenseignement '----------------------------------------------------------------------------------------------------   'Unload Me

---