Bonjour à toutes et à tous,

Voici mon problème du jour: j'ai codé une fonction pour vérifier qu'une donnée, fournie par le biais d'une "InputBox", corresponde bien à la forme XXXXXXXXXX.XXXX où X est un nombre de 0 à 9.
Les contraintes:
- La donnée à la gauche du point peut comprendre de 1 à 10 chiffres max
- La donnée à la droite du point comprend obligatoirement 4 chiffres max de 0 à 9

Voici le code de ma fonction:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Public Function controlPoint(ByVal strMail As String) As Boolean
 
Dim reg As New VBScript_RegExp_55.RegExp
 
reg.Pattern = "^(\d{1,10})[.](\d{1,4})$"
controlPoint = reg.Test(strMail)
 
Set reg = Nothing
 
End Function
J'utilise cette fonction avec une boucle Do while & Loop, pour que tant que la donnée ne correspond pas au modèle, elle ne soit pas enregistrée. Le problème est que quand je rentre une donnée dite "bonne", la boucle continue (donc je suppose que ma fonction ne répond pas bien).

Est-ce que quelqu'un pourrait m'aider à solutionner ce petit soucis?

Merci,

Titom