Discussion :

[maejor]

Bonjour,

Comment écrire un contrôle déterminant qu'une référence doit être formée par maxi 8 chiffres + une lettre.

La référence doit-être composée de 1 à 8 chiffres + une lettre. Si l'utilisateur ne rentre pas ce critère, je souhaite créer une msgbox comme quoi la référence n'est pas conforme et doit-être à nouveau saisie

Merci pour votre aide

[jfontaine]

A adpater si besoin

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
 
Dim code As String
code = "12345678"
 
If IsNumeric(Left(code, 8)) = False Then MsgBox "anomalie"
If Len(code) = 9 Then
    Select Case Asc(Right(code, 1))
        Case 65 To 90
            'ok
        Case 97 To 122
            'ok
        Case Else
            MsgBox "anomalie"
    End Select
End If

[Invité]

Bonjour

Je penses que cette fonction pourrait répondre à ton problème

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
Public Function TestContenu(strTest As String) As Boolean
 
    ' on test la longueur
    If Len(strTest) > 9 Then
        TestContenu = False
        Exit Function
    End If
 
    ' on test le dernier chiffre pour savoir si c'est une lettre
    If IsNumeric(Right(strTest, 1)) Then
        ' le dernier chiffre est de type numérique, donc pas bon
        TestContenu = False
        Exit Function
    End If
 
    ' on test maintenant si le reste de la chaine est du numérique
    If IsNumeric(Left(strTest, Len(strTest) - 1)) Then
        TestContenu = True
    Else
        TestContenu = False
    End If
 
End Function

Tu passes ta chaine en paramètre, elle te renvoie True s'il est bon et False dans l'autre cas.


Starec

[jfontaine]

hello starec,

J'avais pensé a ca aussi pour le dernier caractère; mais ca passe si on saisie un caractère de pontuation.
A moins que ces caractères soient accepté

[Invité]

Salut Voisin

Exact, mais maejor n'a pas spécifié ce cas, attendons de ses nouvelles et de ses test.

Starec

[ucfoutu]

Bonjour,

Si l'on refuse les lettres accentuées, la réponse est simple :

Code :

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

1
2
3
4
Private Sub Command1_Click()
   toto = "12345678V"
   If Not toto Like "########[A-z]" Then MsgBox "non"
End Sub