Indice en dehors de plage dans un array

**theclem35** · 24/12/2007, 15h02

Bonjour !!!!

Suite à l'édition d'un array pour alleger le code, j'ai une erreur d'indice en dehors de plage.

Le code de base pour lequel ca marche est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ProcedureFinie as Variant
 
    ProcedureFinie = Array(0, "ANNULER", 1, "ANNULER", 1, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1)

La fonction traitant cet array est une boucle éxecutant ligne par ligne l'array tant que le resultat n'est pas satisfaisant.

Pour alléger le code voici comment j'ai procédé :

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
Dim ProcedureFinie As Variant
Dim Procedure1 As String, Procedure2 As String
 
    Ligne1 = "0, 'ANNULER', 1, 'ANNULER', 1, 'VOILIER', 1, 'MER', 1, 'VALIDER', 1, _"
    Ligne2 = "'VOILIER', 1, 'MER', 2, 'VALIDER', 1, _"
    Ligne3 = "'VOILIER', 1, 'MER', 4, 'VALIDER', 1, _"
    Ligne4 = "'CATAMARAN', 1, 'MER', 1, 'VOILIER', 1, 'MER', 3, 'VALIDER', 1, _"
    Ligne5 = "'CATAMARAN', 1, 'MER', 3, 'VOILIER', 1, 'MER', 1, 'VALIDER', 1, _"
    Ligne6 = "'BARQUE', 1, 'MER', 1, 'CATAMARAN', 1, 'MER', 1, 'VOILIER', 1, 'MER', 2, 'VALIDER', 1, _"
    Ligne7 = "'BARQUE', 1, 'MER', 2, 'CATAMARAN', 1, 'MER', 2, 'VOILIER', 1, 'MER', 4, 'VALIDER', 1, _"
    Ligne8 = "'BARQUE', 1, 'MER', 5, 'VOILIER', 1, 'MER', 3, 'VALIDER', 1, _"
    Ligne9 = "'FREGATE', 1, 'MER', 2, 'BARQUE', 1, 'MER', 2, 'VOILIER', 1, 'MER', 6, 'VALIDER', 1, _"
    Ligne10 = "'FREGATE', 1, 'MER', 5, 'CATAMARAN', 1, 'MER', 2, 'VOILIER', 1, 'MER', 2, 'VALIDER', 1, _"
    Ligne11 = "'FREGATE', 1, 'MER', 10, 'VALIDER', 1"
 
    Procedure1 = Ligne1 & vbCrLf & Ligne2 & vbCrLf & Ligne3 & vbCrLf & Ligne4 & vbCrLf & Ligne5 & vbCrLf & Ligne6 & vbCrLf & Ligne7 & vbCrLf & Ligne8 & vbCrLf & Ligne9 & vbCrLf & Ligne10 & vbCrLf & Ligne11
 
    Procedure2 = Replace(Procedure1, "'", Chr(34))
 
    MsgBox (Procedure2)    
 
    ProcedureFinie = Array(Procedure2)

Explications d'une ligne pour les curieux : Ligne5 = "'CATAMARAN', 1, 'MER', 3, 'VOILIER', 1, 'MER', 1, 'VALIDER', 1, _"
On dépose 3 catamarans dans la mer et 1 voilier et on valide.

Vous pourriez vous dire que c'est drolement allégé... Mais en fait il y a plein d'autres procedures IDENTIQUES sauf que sur les autres on depose d'autres bateaux avant tout cela, c'est donc pour éviter de recopier 30 fois ce bout de procedure dans les autres.

La MsgBox m'affiche bien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
			0, "ANNULER", 1, "ANNULER", 1, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1

D'où mon incompréhension quand je met tout ca dans le Array : ProcedureFinie = Array(Procedure2), et que ca m'indique un indice en dehors de plage.

Je pense que ce doit etre un probleme minime si quelqu'un le décèle ce serait genial !!

Merci
Clément

**ucfoutu** · 24/12/2007, 15h58

Bonjour,

- un array n'est pas une chaine de caractères mais un ensemble d'éléments mis en mémoire.

- ta procedure2 est une chaîne de caractères

- en passant procédure2 à un array, tu passes une chaîne de caractères, qui devient l'unique élément (indice 0) de ton array....

Démarche impossible

**theclem35** · 24/12/2007, 16h14

Mince...

N'y a-t-il pas une solution pour alleger le code dans ce cas ?

Car j'ai cette meme expression 12 fois à laquelle je rajoute simplement une ligne vide au tout début à chaque fois :

expression de base :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    ProcedureFinie = Array(0, "ANNULER", 1, "ANNULER", 1, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1)

Expressions suivantes :

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
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
    ProcedureFinie2 = Array(0, "ANNULER", 1, "ANNULER", 1, "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 3, "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 1, "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 2, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 5, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 2, "BARQUE", 1, "LAC", 2, "VOILIER", 1, "LAC", 6, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 5, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 10, "VALIDER", 1)
 
    ProcedureFinie3 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1)
 
    ProcedureFinie4 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 3, "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 1, "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 2, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 5, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 2, "BARQUE", 1, "LAC", 2, "VOILIER", 1, "LAC", 6, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 5, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 10, "VALIDER", 1)
 
    ProcedureFinie5 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1)
 
    ProcedureFinie6 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 3, "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 1, "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 2, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 5, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 2, "BARQUE", 1, "LAC", 2, "VOILIER", 1, "LAC", 6, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 5, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 10, "VALIDER", 1)
 
    ProcedureFinie7 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1)
 
    ProcedureFinie8 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 3, "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 1, "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 2, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 5, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 2, "BARQUE", 1, "LAC", 2, "VOILIER", 1, "LAC", 6, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 5, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 10, "VALIDER", 1)
 
 
    ProcedureFinie9 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1)
 
    ProcedureFinie10 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 3, "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 1, "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 2, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 5, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 2, "BARQUE", 1, "LAC", 2, "VOILIER", 1, "LAC", 6, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 5, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 10, "VALIDER", 1)
 
    ProcedureFinie11 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "MER", 3, "VOILIER", 1, "MER", 1, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 1, "CATAMARAN", 1, "MER", 1, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 2, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 4, "VALIDER", 1, _
                           "BARQUE", 1, "MER", 5, "VOILIER", 1, "MER", 3, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 2, "BARQUE", 1, "MER", 2, "VOILIER", 1, "MER", 6, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 5, "CATAMARAN", 1, "MER", 2, "VOILIER", 1, "MER", 2, "VALIDER", 1, _
                           "FREGATE", 1, "MER", 10, "VALIDER", 1)
 
    ProcedureFinie12 = Array(0, "ANNULER", 1, "ANNULER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "CATAMARAN", 1, "LAC", 3, "VOILIER", 1, "LAC", 1, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 1, "CATAMARAN", 1, "LAC", 1, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 2, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 4, "VALIDER", 1, _
                           "BARQUE", 1, "LAC", 5, "VOILIER", 1, "LAC", 3, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 2, "BARQUE", 1, "LAC", 2, "VOILIER", 1, "LAC", 6, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 5, "CATAMARAN", 1, "LAC", 2, "VOILIER", 1, "LAC", 2, "VALIDER", 1, _
                           "FREGATE", 1, "LAC", 10, "VALIDER", 1)

**ucfoutu** · 24/12/2007, 16h20

Il y a presque toujours une solution, mais
1) pas avec le code que tu nous montres là.
2) il est alors vraisemblalble qu'il te faudra reconsidérer la quasi totalité de l'architecture de ton application, en fonction des buts recherchés ..., ce qui représente :

a) un travail de réflexion préliminaire
b) de connaître dans les détails ce que doit faire ton application
3) de quasiment tout réécrire

Tu voudras bien comprendre que celà voudrait dire : à la fois s'imprégner de ton projet et l'écrire à ta place ... ce qui n'est certes pas la vocation de ce forum.

**theclem35** · 24/12/2007, 16h30

Bon eh bien je vais m'en tenir au code de base alors : )

Bisous!

**rv26t** · 24/12/2007, 18h57

Bonjour,
Travaille avec des chaînes de caractère que tu décomposes en tableau après les avoir concaténées selon tes souhaits.
ex : sur une form 2 boutons.

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
Dim ProcedureFinie As Variant
Dim ligne1, ligne2, ligne3, ligne4 As String
 
Private Sub Command1_Click()
Dim sChaineTravail As String
 
    sChaineTravail = ligne1 & "," & ligne2 & "," & ligne3 ' ne pas oublier la ","
    MsgBox (sChaineTravail)
    ProcedureFinie = Split(sChaineTravail, ",") ' le tableau
    MsgBox ProcedureFinie(5) 'un élément
End Sub
 
Private Sub Command2_Click()
Dim sChaineTravail As String
 
    sChaineTravail = ligne1 & "," & ligne4
    MsgBox (sChaineTravail)
    ProcedureFinie = Split(sChaineTravail, ",") ' le tableau
    MsgBox ProcedureFinie(11) ' un élément du tableau
End Sub
 
Private Sub Form_Load()
    ligne1 = "0,ANNULER,1,ANNULER,1,VOILIER,1,MER,1,VALIDER,1"
    ligne2 = "VOILIER,1,MER,2,VALIDER,1"
    ligne3 = "VOILIER,1,MER,4,VALIDER,1"
    ligne4 = "CATAMARAN,1,MER,1,VOILIER,1,MER,3,VALIDER,1"
End Sub

J'espère que cela répond à ta question.
A+, Hervé

**theclem35** · 24/12/2007, 19h19

Merci Hervé!

Impeccable je te remercie !

Indice en dehors de plage dans un array

VB 6 et antérieur

Discussions similaires

Partager

Partager