Bonjour à tous,

J'ai un Sub qui me sert à vérifier si la personne saisie bien que du text et un autre des numériques.

Ca fonctionne très sauf une instruction celle de garder le focus.

Voici mon 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
20
21
22
23
24
25
26
27
 
Sub verifieTexte(LaChaine As String, lavariable As String)
    Dim reg As New VBScript_RegExp_55.RegExp
    Dim ValideTexte As Boolean
 
    reg.Pattern = "^[A-Z]{4}$"
    ValideTexte = reg.Test(LaChaine)
 
    Set reg = Nothing
 
    If LaChaine <> "" And ValideTexte = False Then
        MsgBox ("Merci de saisir quatre lettres !")
        Me.Controls(lavariable).Value = ""
        Me.Controls(lavariable).SetFocus
    End If
End Sub
 
Sub verifieChiffre(lavariable As String, vHaute As Integer, vDefaut As String)
    Dim vtHaute As String
    vtHaute = vHaute
    If (Not IsNumeric(Me.Controls(lavariable).Value) Or Me.Controls(lavariable).Value < 0 Or Me.Controls(lavariable).Value > vHaute) And Me.Controls(lavariable).Value <> "" Then
        MsgBox ("Merci de saisir un chiffre compris entre 0 et " + vtHaute + " !")
        Me.Controls(lavariable).Value = vDefaut
        Me.Controls(lavariable).SetFocus
    End If
    If Me.Controls(lavariable).Value = "" Then Me.Controls(lavariable).Value = vDefaut
End Sub
Merci de votre aide