Vérification d'une TextBox

Version imprimable

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:

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.

En continuant de faire mes test je me suis rendu compte que je bute sur quelque problème.

Premier problème quand je suis en 1B il faut qu'il m'écrive sur la seconde ligne, comment faire le distinguo avec l'indice 1A

J'ai un autre problème que j'ai contourné mais ça ne me plait pas car je pense qu'il y a plus propre à faire.

Je vous mets mon code qui à évolué. Merci de votre aide.

Code:

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
 
        V = Len(TextBox4.Value) 'Longueur du texte
        NR = Right(TextBox4.Value, 1) 'renvoie le premier caratère à doite
        NL = Left(TextBox4.Value, 1)  'renvoie le premier caratère à gauche
 
        If V <= 1 And 65 >= titi(0) <= 90 Then
            If NR = "A" Then
                'MsgBox "A ecrire sur 1er ligne"
                Open MonFichier For Output As #1
                Print #1, Texte
                Close #1
            ElseIf NR = "B" Then
                'MsgBox " A écrire sur la seconde ligne"
                '' Si pas d'erreur on peut faire une modification sur une ligne.
                If Lignes(1) <> "NOK" Then
                    'Modification de la ligne 2
                    Lignes(2) = Texte
                    Lignes(3, 8) = ""
 
                    'Ecriture du fichier
                    FichierModifie = EcritureFichier(MonFichier, Lignes)
                End If
            ElseIf NR = "C" Then
                'MsgBox " A écrire la 3"
                '' Si pas d'erreur on peut faire une modification sur une ligne.
                If Lignes(1) <> "NOK" Then
                    'Modification de la ligne 3
                    Lignes(3) = Texte
                    Lignes(4, 9) = ""
 
                    'Ecriture du fichier
                    FichierModifie = EcritureFichier(MonFichier, Lignes)
                End If
            Else
                MsgBox "Pas encore fait"
            End If
        ElseIf V >= 2 And 48 >= titi(0) <= 57 And 65 >= titi(1) <= 90 And Not IsNumeric(NL) And IsNumeric(NR) Or IsNumeric(NL) And Not IsNumeric(NR) Then
            If IsNumeric(NL) Then
                N1 = CInt(NL)
            End If
            If IsNumeric(NR) Then
                N1 = CInt(NR)
            End If
            'MsgBox " Indice Mineur" & NL & NR
            If NL = "1" Or NR = "1" Then
                Open MonFichier For Output As #1
                Print #1, Texte
                Close #1
            End If
            If NL <> "1" And NR <> "1" Then
                    Open MonFichier For Append As #1
                    Print #1, Texte
                    Close #1
            End If
           'MsgBox "Mauvaise Saisie"
        ElseIf V >= 2 And 65 >= titi(0) <= 90 And 65 >= titi(1) <= 90 And Not IsNumeric(NL) And Not IsNumeric(NR) Then
            MsgBox " Indice Majeur" & NL & NR
        End If

Merci de l'aide

25/01/2019, 10h23
Algoplus

Bonjour,

Pas tout compris !

on veut vérifier le niveau d'une saisie, mais c'est la saisie qui détermine le niveau ???

Par ailleurs, dans:

Code:

If ... 65 >= titi(0) <= 90 Then

cette façon d'écrire ne fonctionne pas comme on pourrait s'y attendre, il faut écrire:

Code:

If... titi(0) <= 65 And titi(0) <= 90 Then

Est ce normal qu'on teste, que titi(0) est inférieur à 65 et inférieur à 90 ?

A+
25/01/2019, 21h24
Nico451

Pour explication, l'utilisateur met une valeur dans la textbox4.

l'utilisateur mets une valeur de type : numérique & alphabétique, ou l'inverse. pour se que vont appeler un indice mineur

Si l'utilisateur rentre alphabétique & alphabétique ou que alphabétique c'est un indice majeur

Quand l'indice est mineur il se met à la suite.

Si l'indice A est mis simple ou double, le texte se mets sur la première ligne d'un fichier txt.

Quand je passe à l'indice 1B l'indice A reste sur la première ligne et les indice mineur se mette à la ligne du dessous.

au passage en indice B les indices mineur se supprime et l'indice B se met en seconde lignes. Et ainsi de suite.

Donc je vérifie les caractères qui sont taper pour savoir se que c'est et ou je mets le texte.

J'espère avoir répondu à tes interrogations.
26/01/2019, 11h57
Algoplus

Citation:

Quand l'indice est mineur il se met à la suite.

à la suite de quoi et dans quoi ?

Citation:

Quand je passe à l'indice 1B l'indice A reste sur la première ligne et les indice mineur se mette à la ligne du dessous.

ca voudrait dire qu'on a déjà saisi l'indice majeure B ?

Citation:

au passage en indice B les indices mineur se supprime et l'indice B se met en seconde lignes. Et ainsi de suite.

les indices mineurs se suppriment : lesquels, ceux de l'indice majeur précédent?
pourquoi inscrire les indices mineurs si c'est pour les supprimer?

L'ordre des indices majeurs est il figé (A B C...) ? quel est sa limite supérieure ? pourquoi A ou AA (c'est la même chose?)
les indices mineurs sont ils toujours de la forme A1 B5.... ? jusqu'à combien ?

Part-on de rien ou bien d'une situation existante?

en plus il serait question d'indices mineurs supérieurs, y en a-il des "inférieurs"?

Désolé, mais ça reste trop évasif pour moi.
26/01/2019, 12h42
Nico451

je crée un fichier txt avec une macro qui mets sur la première ligne, le premier indice mineur 1A ou A1 ça dépend des projets.

L'indice suivant peut être un indice mineur avec le numérique qui évolue. Une vérification doit être faite, savoir si le texte qui est noté est de la même forme qui se trouve dans le fichier texte.

Si c'est le cas il se mets sur la ligne suivante.

Sinon on peut passer directement en majeur. L'indice majeur peut être du type A ou AA selon les projets. Si l'indice majeur est A il efface tout les indices mineur lui correspondant.

Ensuite normalement on passe à l'indice mineur 1B ou B1 comme précédemment, cette indice doit se mettre sur la ligne suivante de l'indice A, tout en le concevant.

Il n'y a pas de limite avec les indices mineur ou majeur.

Pour exemple de mon fichier txt :
1A
2A
3A
etc...

Si indice majeur :
A

Si indice mineur <> de A
A
1B
2B

Passage en indice B
A
B

Etc...
26/01/2019, 12h50
patricktoulon

re

bonjour
puré c'est dur tellement c'est evasif
cela dit je crois comprendre
je tape 1A c'est le premier
je tape A le 1A est supprimé dans le fichier text et remplacé par A
je tape AA ca s'ajoute en dessous dans le fichier text
je tape AB ca s'ajoute
blablabla......
je tape 1B ca s'ajoute
je tape B ca suprime le 1B et on ajoute B

est ce bien ca
26/01/2019, 12h51
Nico451

C'est bien ça. Pour la partie AA AB etc... je ferrai ça plus tard. je n'ai pas encore eu le cas. Mais je voulais prévoir.
26/01/2019, 12h56
patricktoulon

re
re
bon comme nous somme d'accords sur le principe
ou est ton probleme ??
1. dans la verif du fichier text?
2. dans la suppression d'une ligne?
3. dans la mise a jour ?
26/01/2019, 13h00
Nico451

Mon problème est d'écrire dans mon fichier à la bonne place, de supprimer les lignes que je ne veux plus et de mettre les information à la suite.

Quand j'écrit, à la fin je ne doit pas passer de ligne.

Et je pense que dans se que j'ai déjà écrit mes vérifications doivent être un peu bancale.

Merci du coup de main
26/01/2019, 13h06
patricktoulon

re

on va faire simple
pourrais tu donner un exemple de texte dans ton fichier text avec quelques lignes en bidonnant les données si confidentielles

Mise à jour

Bonjour,

Voici l'usine à gaz que j'ai mis en place je pense qu'il y a mieux à faire. Merci du coup de main. mon fichier est un fichier Texte.

Code:

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
 
 
 IndexFichier = FreeFile()
    Open MonFichier For Input As #IndexFichier 'ouvre le fichier
 
    While Not EOF(IndexFichier) '
        Line Input #IndexFichier, ContenuLigne
        i = i + 1
            ii = ii + 1
            ReDim Preserve Lignes(1 To ii)
            Lignes(ii) = ContenuLigne
    Wend
 
          '' lecture du fichier
        Lignes = LireFichier(MonFichier)
        IndLignes = Left(Lignes(1), 1)
        'MsgBox IndLignes
    MsgBox Left(TextBox4.Value, 2)
 
 
 Close #IndexFichier
 
 'Application.ScreenUpdating = True
       titi = StrConv(TextBox4.Text, vbFromUnicode)
 
       'For i = 0 To UBound(titi)
         'MsgBox Chr(titi(i))
       'Next
 
        s_indice = TextBox4.Value
        s_testTypeInd = testTypeInd(s_indice)
        V = Len(TextBox4.Value) 'Longueur du texte
        NR = Right(TextBox4.Value, 1) 'renvoie le premier caratère à doite
        NL = Left(TextBox4.Value, 1)  'renvoie le premier caratère à gauche
 
 
        If s_testTypeInd = "majeur" Then
            If NR = "A" Then
                'MsgBox "A ecrire sur 1er ligne"
                Open MonFichier For Output As #1
                Print #1, Texte
                Print #1,
                Close #1
            ElseIf NR = "B" Then
                'MsgBox " A écrire sur la seconde ligne"
                '' Si pas d'erreur on peut faire une modification sur une ligne.
                If Lignes(1) <> "NOK" Then
                    Open MonFichier For Output As #1
                    Print #1, Lignes(1)
                    Print #1, Texte
                    Close #1
                End If
            ElseIf NR = "C" Then
                'MsgBox " A écrire la 3"
                '' Si pas d'erreur on peut faire une modification sur une ligne.
                If Lignes(1) <> "NOK" Then
                    Open MonFichier For Output As #1
                    Print #1, Lignes(1)
                    Print #1, Lignes(2)
                    Print #1, Texte
                    Close #1
                End If
            Else
                MsgBox "Pas encore fait"
            End If
 
         ElseIf s_testTypeInd = "mineur" Then
         'MsgBox "Mineur"
            If IsNumeric(NL) Then
                N1 = CInt(NL)
            End If
            If IsNumeric(NR) Then
                N1 = CInt(NR)
            End If
            'MsgBox " Indice Mineur" & NL & NR
            If TextBox4 = "1A" Then
                Open MonFichier For Output As #1
                Print #1, Texte
                Close #1
            End If
 
                If NL <> "1" And NR <> "1" And Left(Lignes(1), 1) <> "A" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And TextBox4 <> "1A" And NL <> "1" And NR <> "1" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And ii = 1 And TextBox4 <> "1A" Then
                        Open MonFichier For Output As #1
                        Print #1, Lignes(1)
                        Print #1, Texte
                        Close #1
 
                ElseIf NL <> "1" And NR <> "1" And Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) <> "B" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) = "B" And TextBox4 <> "1B" And NL <> "1" And NR <> "1" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) = "B" And TextBox4 <> "1B" Then
                        Open MonFichier For Output As #1
                        Print #1, Lignes(1)
                        Print #1, Lignes(2)
                        Print #1, Texte
                        Close #1
 
                ElseIf NL <> "1" And NR <> "1" And Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) <> "B" And Left(Lignes(3), 1) <> "C" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) = "B" And Left(Lignes(3), 1) <> "C" And TextBox4 <> "1C" And NL <> "1" And NR <> "1" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) = "B" And Left(Lignes(3), 1) <> "C" And TextBox4 <> "1C" Then
                        Open MonFichier For Output As #1
                        Print #1, Lignes(1)
                        Print #1, Lignes(2)
                        Print #1, Texte
                        Close #1
 
                ElseIf NL <> "1" And NR <> "1" And Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) <> "B" And Left(Lignes(3), 1) <> "C" And Left(Lignes(4), 1) <> "D" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) = "B" And Left(Lignes(3), 1) <> "C" And Left(Lignes(4), 1) <> "D" And TextBox4 <> "1C" And NL <> "1" And NR <> "1" Then
                        Open MonFichier For Append As #1
                        Print #1, Texte
                        Close #1
                ElseIf Left(Lignes(1), 1) = "A" And Left(Lignes(2), 1) = "B" And Left(Lignes(3), 1) <> "C" And Left(Lignes(4), 1) <> "D" And TextBox4 <> "1D" Then
                        Open MonFichier For Output As #1
                        Print #1, Lignes(1)
                        Print #1, Lignes(2)
                        Print #1, Texte
                        Close #1
 
                If Asc(Mid(TextBox4.Value, 2, 1)) > 68 Then
                MsgBox "Pas fait!!!!!!"
                End If
 
 
 
                End If           'MsgBox "Mauvaise Saisie"
        ElseIf V >= 2 And 65 >= titi(0) And titi(0) <= 90 And 65 >= titi(1) And titi(1) <= 90 And Not IsNumeric(NL) And Not IsNumeric(NR) Then
            MsgBox " Indice Majeur" & NL & NR
        End If
 
Public Function testAscii(Letter As String) As String
 
    Letter = Left(Letter, 1)
 
    If Asc(Letter) >= 65 And Asc(Letter) <= 90 Then
        testAscii = "L"
    ElseIf Asc(Letter) >= 48 And Asc(Letter) <= 57 Then
        testAscii = "N"
    Else
        testAscii = "O"
    End If
 
End Function
Public Function testTypeInd(s_indice As String) As String
 
        If testAscii(Left(s_indice, 1)) = "N" Then
            testTypeInd = "mineur"
        ElseIf testAscii(Right(s_indice, 1)) = "N" Then
            testTypeInd = "mineur"
        Else
            testTypeInd = "majeur"
        End If
 
End Function
 
Public Function LireFichier(MonFichier As String, Optional NumLigneMin As Long, Optional NumLigneMax As Long) As Variant
 
    Application.ScreenUpdating = False
    On Error GoTo CodeErreur
 
    Dim IndexFichier As Integer
    Dim ContenuLigne As String
    Dim i As Integer
    Dim ii As Integer
    Dim Lignes() As Variant
    Dim Lignesbis As Variant
    Dim j As Integer
 
    Dim NumLigneMinBis, NumLigneMaxBis As Long
 
    If NumLigneMin = 0 Then
        NumLigneMin = 1
    End If
    If NumLigneMax = 0 Then
        NumLigneMax = 9999999
    End If
    If NumLigneMin > NumLigneMax Then
        If NumLigneMin > NumLigneMax Then
            NumLigneMinBis = NumLigneMin
            NumLigneMaxBis = NumLigneMax
        End If
        NumLigneMax = NumLigneMin
        NumLigneMin = NumLigneMaxBis
    End If
 
    IndexFichier = FreeFile()
    Open MonFichier For Input As #IndexFichier 'ouvre le fichier
 
    While Not EOF(IndexFichier) '
        Line Input #IndexFichier, ContenuLigne
        i = i + 1
        If i >= NumLigneMin And i <= NumLigneMax Then
            ii = ii + 1
            ReDim Preserve Lignes(1 To ii)
            Lignes(ii) = ContenuLigne
        End If
    Wend
 
    Close #IndexFichier ' ferme le fichier
    Application.ScreenUpdating = True
 
    j = 0
    If NumLigneMinBis <> 0 And NumLigneMaxBis <> 0 Then
        Lignesbis = Lignes
        For i = UBound(Lignesbis) To 1 Step -1
            j = j + 1
            Lignes(j) = Lignesbis(i)
        Next i
    End If
 
    If ii = 0 Then
        ReDim Lignes(1 To 1)
        Lignes(1) = "NOK"
    End If
 
    LireFichier = Lignes
    Exit Function
 
CodeErreur:
    MsgBox "Une erreur s'est produite..."
    Application.ScreenUpdating = True
    ReDim Lignes(1 To 1)
    Lignes(1) = "NOK"
    LireFichier = Lignes
 
End Function

J'avais la réponse sous le nez je me suis compliqué la vie pour rien voici comment j'ai fait.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        ElseIf s_testTypeInd = "mineur" Then
 
            If TextBox4 = "1A" Then
                Open MonFichier For Output As #1
                Print #1, Texte
                Close #1
            Else
                Open MonFichier For Append As #1
                Print #1, Texte
                Close #1
            End If
 
        End If

Je n'ai pas modifié la partie indice majeur