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 !