Discussion :

[hackoofr]

J'ai ce script pour valider un numéro de carte de crédit avec cette condition :
Le numèro doit être dans cet intervalle [222100 - 272099]
J'ai débuté un petit peu mais je séche encore dans la regexp

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
Title = "Valid card number or not"
CardNumber = InputBox("Please type your card number ",Title,"222100")
if IsValidcard(CardNumber) = True Then
    MsgBox CardNumber & " The Card number is valid !",64,Title
else
    MsgBox CardNumber & " The Card number is not valid !",16,Title
End if
 
Function IsValidCard(Num)
    Set RegularExpressionObject = New RegExp
    With RegularExpressionObject
        .Pattern = "^(2221[0-9][0-9])|(2[2-7]20[0-9][0-9])$"
        .IgnoreCase = False
        If .Test(Num)= True then
            IsValidCard = True
        end if
    End With
End Function

Merci de votre aide !

[l_autodidacte]

Salut hackoofr

Je ne vois pas où se situe le problème. Le code s'exécute correctement.

Dans ton code je mettrais IsValidCard = .Test(num) sans la condition If....End If.

[hackoofr]

Je ne vois pas où se situe le problème. Le code s'exécute correctement.

Le motif est insuffisant. il ne peut pas valider ce nombre 260271 par exemple, qui est un nombre dans la plage valide [222100 - 272099].
Une solution :

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
Title = "Valid card number or not"
Do 
    CardNumber = InputBox("Please type your card number ",Title,"222100")
    If IsValidcard(CardNumber) = True Then
        MsgBox CardNumber & " The Card number is valid !",64,Title
    Else
        MsgBox CardNumber & " The Card number is not valid !",16,Title
    End if
Loop Until CardNumber = ""
'**********************************************************************
Function IsValidCard(Num)
    IsValidCard = False
    Set regEx = New RegExp
    regEx.Pattern = "^\d{6}$"
    If regEx.Test(Num) then
        x = CDbl(num)
        if x >= 222100 AND x <= 272099 Then
            IsValidCard = True
        Else
            'not in range
        End If
    Else
        'not 6 digits
    end if
End Function
'**********************************************************************

[l_autodidacte]

Et si tu fais :

Code :

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

1
2
3
Function IsValidCard(Num)
    IsValidCard = (Num >= 222100 And Num <= 272099)
End Function