Bonjour,

Je doit vérifier la saisie de ma TextBox. La saisi de la TextBox me permet de mettre à jour l'indice ou version d'un document. La vérification doit me permettre de savoir si la saisie est pour indice majeur (A ou AA jusqu'as Z par exemple), ou de savoir si je suis en indice mineur (1A, A1 avec évolution du numérique)

Pour l'indice mineur je doit écrire dans un fichier Txt à la ligne du numérique si 1 à la première, si 2 à la seconde etc.., Si Indice Majeur A l'indice se mets en première ligne en effacent se qu'il y a dedans.

Par contre quand je passe en indice mineur supérieur c'est à dire 1B, la première ligne reste et l'indice se mets en seconde ligne et ainsi de suite pour les indices mineur (en A, B, C, etc..). Quand on passe en indice majeur B les indices mineur B s'efface et B viens en seconde ligne en conservant la première même processus pour le reste des lettres.

Pour le moment j'ai un problème pour savoir si c'est un indice majeur ou mineur qui est inscrit dans la case.

Voici ce que j'ai testés, tenté mais je n'y arrive pas. Car quand je met AA, il passe par "Indice mineur", et après "Majeur".

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
Private Sub CommandButton8_Click()
Dim i As Integer
Dim N As String
Dim c As Integer
Dim V As Integer
Dim N1 As Integer
Dim titi() As Byte
 
 
   titi = StrConv(TextBox4.Text, vbFromUnicode)
 
   For i = 0 To UBound(titi)
     'MsgBox Chr(titi(i))
   Next
 
 
    V = Len(TextBox4.Value)
 
If V = 1 Then
    If 65 >= Asc(titi(0)) <= 90 Then
        MsgBox " MAjeur"
    Else
        MsgBox "erreur"
    End If
End If
 
 
If V = 2 Then
    If 48 >= Asc(titi(0)) <= 57 Or 48 >= Asc(titi(1)) <= 57 Then
        MsgBox "Mineur"
 
        N = Left(TextBox4.Value, 1)
        If 48 >= Asc(titi(0)) <= 57 And IsNumeric(N) Then
            N1 = Left(TextBox4.Value, 1)
            MsgBox "Valeur a partir de la gauche : " & N1
        End If
 
        N = Right(TextBox4.Value, 1)
        If 48 >= Asc(titi(1)) <= 57 And IsNumeric(N) Then
            N1 = Right(TextBox4.Value, 1)
            MsgBox "Valeur a partir de la droite : " & N1
        End If
    End If
        'If 65 < Asc(N) < 90 Then
        If 65 >= Asc(titi(0)) <= 90 And 65 >= Asc(titi(1)) <= 90 Then
        'Else
            MsgBox "Majeur"
        End If
End If
 
 
    'N = Left(TextBox4.Value, 1)
    'If V <= 2 And IsNumeric(N) Then
            'If IsNumeric(N) Then
                'If 0 < Asc(N) < 9 Then
                    'MsgBox "mineur"
                    'N1 = CInt(N)
                'End If
            'Else
                'If 65 < Asc(N) < 90 Then
                    'MsgBox "majeur"
                'End If
            'End If
    'Else
    'MsgBox "C'est inverser"
 
    'End If
End Sub
Merci du coup de main.