Bonjour,

J'essai de mettre en place une RegExp qui malgré les nombreux tutos que j'ai pu suivre ne fonctionne toujours pas ai-je raté quelque chose?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function mot_de_passe_valide(expression As String) As Boolean
    Dim regex As New RegExp
    Dim result As Boolean
    regex.IgnoreCase = False
    regex.Global = False
    'doit contenir au moins huit caractères, au moins un chiffre et des lettres majuscules et minuscules et des caractères spéciaux
    regex.Pattern = "^(?=.*?[A-Z])(?=.*?[a-z])(?=.*?[0-9])(?=.*?[#?!@$%^&*-""""]).{8,}$"
     MsgBox "je suis dans la entré fonction"
     result = regex.Test(expression)
    mot_de_passe_valide = result
 
End Function