Valider un numéro de carte de crédit

Version imprimable

:salut:
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 :roll:

Code:

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 !

26/04/2016, 23h12
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.

Citation:

Envoyé par l_autodidacte

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

:salut:
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:

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
'**********************************************************************

Et si tu fais :

Code:

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