Discussion :

[keithingel]

Bonjour,

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

J'ai créé ce code :

Code :

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

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

[PierrotMfff]

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

[keithingel]

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

[Jean-Philippe André]

Salut,

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

[Invité]

bonjour,
test ça

Code :

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

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

[keithingel]

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

[Invité]

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.