Discussion :

[titi1131]

Bonjour !

J'aimerais tester la saisie d'une zone de texte à l'aide d'une expression régulière.
Je ne veux que des chiffres dans cette zone, donc j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
 .Pattern = "^[0-9]+$"
 .IgnoreCase = True
End With
 
If RegularExpressionObject.test(Me.Zone) = False Then
MsgBox "Erreur dans la saisie"
Else
'Autres Instructions
End If

Ce code matche bien, sauf quand je laisse la zone de saisie vide, sans rien marqué dedans.

J'ai alors essayer d'adapter l'expression régulière, comme celle ci :

Code :

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

.Pattern = "^(([-a-zA-Z0-9.:,]*)|([0-9]+))$"

, mais je ne trouve pas la bonne...

[BornToBe]

Salut,

Est-ce que les réponses de ce sujet peuvent t'aider?

[titi1131]

Justement, je me sert également de ce code.

Enfait je veux tester en même temps la valeur de 3 zone te texte. Dans la première on peut rentrer n'importe quoi, dans les deux autres ça doit être un entier.

Voici le test de condition

Code :

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

If IsNull(Me.Zone1) Or IsEmpty(Me.Zone1) Or RegularExpressionObject.test(Me.Zone2) = False Or IsEmpty(Me.Zone2) Or IsNull(Me.Zone2) Or RegularExpressionObject.test(Me.Zone3) = False Or IsEmpty(Me.Zone3p) Or IsNull(Me.Zone3) Then

Ce code marche, sauf lorsque un des deux champs zone2 et zone3, ou les deux sont vide.

[Flyoss]

Tes champs vides ne contiennent pas 0 mais la valeur null, ce qui doit faire planter ton affaire.
Utilise al fonction Nz sur ces champs afin de transformer les valeur null en ce que tu veux ( "", 0, "toto", -1, ......)

[titi1131]

Nickel ça fonctionne ! je ne connaissais pas cette fonction, Nz, très utile je pense ! je l'avais déja vu sur des discussion mais je m'y étais jamais intéressé.

Pour info aux autres utilisateurs qui chercheraient la solution :

Code :

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

If IsNull(Me.Zone1) Or IsEmpty(Me.Zone1) Or RegularExpressionObject.test(Nz(Me.Zone2,"a")) = False Or IsEmpty(Me.Zone2) Or IsNull(Me.Zone2) Or RegularExpressionObject.test(Nz(Me.Zone3,"a")) = False Or IsEmpty(Me.Zone3p) Or IsNull(Me.Zone3) Then

"a" peut être remplacer par n'importe quelle valeur. Pour ma part j'ai choisis au pif, car il ne faut pas que ma zone de texte ai autre chose que des chiffres.

Merci Flyoss et BornToBe !