Indice en dehors de plage dans un array

Version imprimable

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:

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:

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:

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

24/12/2007, 15h58
ucfoutu

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 ;)

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:

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:

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)

24/12/2007, 16h20
ucfoutu

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.
24/12/2007, 16h30
theclem35

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

Bisous!

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:

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é

24/12/2007, 19h19
theclem35

Merci Hervé!

Impeccable je te remercie !