Discussion :

[tiyolx]

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

[ffdream62]

Qu'est-ce qui arrive dans "lavariable" ?

Apparement :
- Me.Controls("Text1").SetFocus fonctionne
- Me.Controls("Me.Text1").SetFocus ne fonctionne pas

[tiyolx]

bonjour

comme tu l'as dit en premier

la variable lavariable est sous la forme "codePro"

voici mon appel

call verifieTexte(codePro.Value, "codePro")

la syntaxe Me.Controls(lavariable).Value = "" est correcte car la mise à vide fonctionne très bien.

si tu veux d'autre explication pas de problème

[tiyolx]

Bonjour à tous,

j'ai trouvé une solution qui m'a permis de réaliser mon objectif.

Je reprends la définition de mon objectif :

L'utilisateur qui fait une erreur de saisie doit reste sur la cellule jusqu'à ce qu'il ne fasse plus d'erreur ou qu'il saisisse "" et entrer.
Et il faut retourner un message d'erreur bien sûr.

Alors voila comment il faut faire grâce à la méthode Cancel = True/False

Sur l'événement exit de la zone de saisie il faut taper
Cancel = nbEntier(TEST, "mavar", 4, "0", 4, 2)

Dans la fonction il faut retourner une valeur boolean True or False
True si il y a une erreur

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
28
29
30
31
32
33
34
35
36
37
 
'Attribut leUF : nom du UserForm utilisé dans la fonction
'Attribut lavariable : nom de l'objet utilisé dans la fonction
'Attribut longueur : longueur maximum autorisée pour la saisie à cet objet
'Attribut vDefaut : valeur à attribuer par défaut si une erreur est détectée
'Attribut vHaute : valeur maximum autorisée pour la saisie à cet objet
'Attribut vBas : valeur minimum autorisée pour la saisie à cet objet
'Attribut eMsg : message à transmettre en cas d'erreur (valeur par défaut = "")
Function nbEntier(leUF As UserForm, lavariable As String, longueur As String, vDefaut As String, _
                  Optional vHaute As Long = 100, Optional vBas As Integer = 0, Optional eMsg As String = "") _
                  As Boolean
 
    'Necessite d'activer la reference Microsoft VBScript Regular Expression x.x Object Library
    Dim reg As New VBScript_RegExp_55.RegExp
    Dim ValideNBE As Boolean
 
    reg.Pattern = "^[0-9]{1," + longueur + "}$"
    ValideNBE = reg.test(leUF.Controls(lavariable).Value)
 
    Set reg = Nothing
 
    If (leUF.Controls(lavariable).Value <> "" And leUF.Controls(lavariable).Value <> vDefaut) And _
    (ValideNBE = False Or (IsNumeric(leUF.Controls(lavariable).Value) And _
            (leUF.Controls(lavariable).Value < vBas Or leUF.Controls(lavariable).Value > vHaute))) _
    Then
        If eMsg <> "" Then
            MsgBox (eMsg)
        Else
            MsgBox ("Merci de saisir seulement des entiers compris entre " + CStr(vBas) + " et " + CStr(vHaute) + "!")
        End If
        leUF.Controls(lavariable).Value = ""
        nbEntier = True
    Else
        If leUF.Controls(lavariable).Value = "" Then leUF.Controls(lavariable).Value = vDefaut
    End If
 
End Function

Voilà en espérant que ça aidera d'autre utilisateur

Merci à tous