Valider un numéro de carte de crédit
: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 !