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