1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Private Function TestCellule(Buffer As String) As String
Dim msg_err
Buffer = UCase(Buffer) 'éviter le test Minuscule
Select Case Len(Buffer)
Case 2
If Not (Buffer Like "##") Then msg_err = "Please enter 2 Digits or 2 Digits and 1 Char in upper case(except 'i' or 'I' and 'o' or 'O')"
Case 3
If Not Left(Buffer, 2) Like "##" Or _
Buffer Like "##[I]" Or Buffer Like "##[O]" Then msg_err = "Please enter 2 Digits or 2 Digits and 1 Char in upper case(except 'i' or 'I' and 'o' or 'O'"
Case Else
msg_err = "Please enter 2 Digits or 2 Digits and 1 Char in upper case(except 'i' or 'I' and 'o' or 'O'"
End Select
TestCellule = msg_err
End Function |
