Erreur 9 : l'indice n'apparatient pas à la sélection

**ayudame_joel** · 16/07/2018, 10h12

Bonjour, j'ai un soucis avec ma macro. Quand je la lance j'obtiens l'erreur 9 : l'indice n'appartient pas à la sélection. Voici mon code :
Le code bug à la 1ère ligne qui suit ma boucle FOR, c'est à dire au niveau de

Code vba :

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

1
2
For I = 1 To N
    Tableau1(I, 1) = Tableau(I, 1) 'Retient le numéro de police

Code vba :

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
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
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
Option Explicit
Option Base 1
 
Sub Pricer2()
'déclaration de tableaux
Dim Tableau() As Variant, Tableau1() As Variant
Dim Tableau_TGCS() As Variant, Tableau_TGCC() As Variant, Tableau_TT() As Variant, Tableau_TARC_C() As Variant, Tableau_TARC_S() As Variant
 
Dim I As Double, N As Double, poli As Double, nb_cs As Double, nb_cc As Double, nb_t As Double, nb_arc_s As Double, nb_arc_c As Double
'Déclaration des variables des taux, capital de la parcelle et des primes
Dim Taux_Grele, Taux_Temp, Taux_Arc
Dim Capital_Par As Double
Dim Prime As Double, Prime_Grele As Double, Prime_Temp As Double, Prime_Arc As Double
Dim Prime_Totale_Grele As Double, Prime_Totale_Temp As Double, Prime_Totale_Arc As Double
'Déclaration des variables qui permettront de rechercher les taux via la fonction rechercheV
Dim Recherche_Taux_CC As String, Recherche_Taux_CS As String, Recherche_taux_temp As String
'Déclaration des plages des taux
'Dim Tableau_TGCC As Range, Tableau_TGCS As Range, Tableau_TT As Range
Dim A As Worksheet, B As Worksheet, C As Worksheet, D As Worksheet, E As Worksheet, F As Worksheet, G As Worksheet, P As Worksheet
 
'Déclaration d'une variable qui servira à calculer le temps d'exécution de la macro
Dim Start As Single
'Calcul du temps d'exécution de ma macro avec Start = Timer en début de macro, l'affichage se fera avec Msgbox en fin de macro
Start = Timer
 
Application.ScreenUpdating = False
 
Set A = Worksheets("Automatisé")
Set B = Worksheets("Prime")
Set C = Worksheets("Tarifgrele 1-95")  'feuille de taux grele cultures courantes
Set D = Worksheets("Tarifgrele 101")   'feuille de taux grele cultures spéciales
Set E = Worksheets("Tarifgrele 116")   'feuille de taux ARC Confort
Set F = Worksheets("Tarifgrele 121")   'feuille de taux ARC socle
Set G = Worksheets("Tarifgrele 104")   'feuille de taux tempête
Set P = Worksheets("Contrats_2017 (2)")
 
A.Range("A:Z").ClearContents
B.Range("A2:G1000000").ClearContents
 
 
N = P.Cells(Rows.Count, 1).End(xlUp).Row
nb_cs = D.Cells(Rows.Count, 1).End(xlUp).Row
nb_cc = C.Cells(Rows.Count, 1).End(xlUp).Row
nb_t = G.Cells(Rows.Count, 1).End(xlUp).Row
nb_arc_s = F.Cells(Rows.Count, 1).End(xlUp).Row
nb_arc_c = E.Cells(Rows.Count, 1).End(xlUp).Row
 
ReDim Tableau(N - 1, 29) 'on va y stocker nos données
ReDim Tableau1(N - 1, 4) 'on va y enregistrer nos primes
ReDim Tableau_TGCS(nb_cs - 1, 2), Tableau_TGCC(nb_cc - 1, 2), Tableau_TT(nb_t - 1, 2), Tableau_TARC_C(nb_arc_c - 1, 2), Tableau_TARC_S(nb_arc_s - 1, 2)
 
Tableau() = P.Range("A2:AC" & N)
Tableau_TGCS() = D.Range("B2:C" & nb_cs)
Tableau_TGCC() = C.Range("A2:B" & nb_cc)
Tableau_TT() = G.Range("C2:D" & nb_t)
Tableau_TARC_S() = E.Range("C2:D" & nb_arc_s)
Tableau_TARC_C() = F.Range("C2:D" & nb_arc_c)
 
For I = 1 To N
    Tableau1(I, 1) = Tableau(I, 1) 'Retient le numéro de police
 
Select Case (Tableau(I, 2))
    Case Is = "GRE"
        Select Case (Tableau(I, 3))
            Case Is = ""
                Select Case (Tableau(I, 4))
                    Case Is = ""
 
'''''''''''''''Taux grêle
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP, la culture
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP colza, la culture
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 11) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la culture (vigne)
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'si taux introuvable alors on prends le taux en base
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Taux_Grele = Tableau(I, 28)
            End If
            End If
            End If
            End If
            End If
'''''''''''''''Taux tempête
            Taux_Temp = 0
'''''''''''''''Taux arc
            Taux_Arc = 0
'''''''''''''''Calcul des primes
 
'Calcul capital assuré
Capital_Par = Tableau(I, 27)
Prime_Grele = (Taux_Grele / 100) * Capital_Par
Tableau1(I, 2) = Prime_Grele
Prime_Temp = (Taux_Temp / 100) * Capital_Par
Tableau1(I, 3) = Prime_Temp
Prime_Arc = (Taux_Arc / 100) * Capital_Par
Tableau1(I, 4) = Prime_Arc
 
 
                    Case Is = "ARC"
 
'''''''''''''''Taux grêle
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP, la culture
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP colza, la culture
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 11) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la culture (vigne)
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'si taux introuvable alors on prends le taux en base
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Taux_Grele = Tableau(I, 28)
            End If
            End If
            End If
            End If
            End If
'''''''''''''''Taux tempête
            Taux_Temp = 0
'''''''''''''''Taux arc
            Taux_Arc = 0
'''''''''''''''Calcul des primes
 
'Calcul capital assuré
Capital_Par = Tableau(I, 27)
Prime_Grele = (Taux_Grele / 100) * Capital_Par
Tableau1(I, 2) = Prime_Grele
Prime_Temp = (Taux_Temp / 100) * Capital_Par
Tableau1(I, 3) = Prime_Temp
Prime_Arc = (Taux_Arc / 100) * Capital_Par
Tableau1(I, 4) = Prime_Arc
                    End Select
 
 
                Case Is = "TEM"
                    Select Case (Tableau(I, 4))
                        Case Is = ""
 
'''''''''''''''Taux grêle
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP, la culture
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP colza, la culture
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 11) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la culture (vigne)
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'si taux introuvable alors on prends le taux en base
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Taux_Grele = Tableau(I, 28)
            End If
            End If
            End If
            End If
            End If
'''''''''''''''Taux tempête
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la date
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 18)  'taux selon la date
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la franchise
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 9)  'FAP
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la franchise
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 14)  'FAC
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la franchise
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 16)  'FAP Colza
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            'le taux est nul aucune recherche n'est vraie
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            Taux_Temp = Tableau(I, 29)
            End If
            End If
            End If
            End If
'''''''''''''''Taux arc
            Taux_Arc = 0
'''''''''''''''Calcul des primes
 
'Calcul capital assuré
Capital_Par = Tableau(I, 27)
Prime_Grele = (Taux_Grele / 100) * Capital_Par
Tableau1(I, 2) = Prime_Grele
Prime_Temp = (Taux_Temp / 100) * Capital_Par
Tableau1(I, 3) = Prime_Temp
Prime_Arc = (Taux_Arc / 100) * Capital_Par
Tableau1(I, 4) = Prime_Arc
 
 
 
                Case Is = "ARC"
 
'''''''''''''''Taux grêle
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP, la culture
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 9) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la franchise FAP colza, la culture
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CC = Tableau(I, 5) & "-" & Tableau(I, 6) & "-" & Tableau(I, 8) & "-" & Tableau(I, 11) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CC, Tableau_TGCC, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe, la culture (vigne)
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-" & Tableau(I, 12)
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'recherche du taux selon le dpt, le niveau d'exception, la classe
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Recherche_Taux_CS = Tableau(I, 5) & "-" & Tableau(I, 7) & "-" & Tableau(I, 8) & "-"
            Taux_Grele = Application.VLookup(Recherche_Taux_CS, Tableau_TGCS, 2, 0)
            'si taux introuvable alors on prends le taux en base
            If Application.WorksheetFunction.IsNA(Taux_Grele) Then
            Taux_Grele = Tableau(I, 28)
            End If
            End If
            End If
            End If
            End If
'''''''''''''''Taux tempête
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la date
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 18)  'taux selon la date
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la franchise
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 9)  'FAP
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la franchise
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 14)  'FAC
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            'recherche du taux selon la franchise concatené à la zone, la nature de la culture, la franchise
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            Recherche_taux_temp = Tableau(I, 13) & "-" & Tableau(I, 17) & "-" & Tableau(I, 16)  'FAP Colza
            Taux_Temp = Application.VLookup(Recherche_taux_temp, Tableau_TT, 2, 0)
            'le taux est nul aucune recherche n'est vraie
            If Application.WorksheetFunction.IsNA(Taux_Temp) Then
            Taux_Temp = Tableau(I, 29)
            End If
            End If
            End If
            End If
'''''''''''''''Taux arc
            Taux_Arc = 0
'''''''''''''''Calcul des primes
 
'Calcul capital assuré
Capital_Par = Tableau(I, 27)
Prime_Grele = (Taux_Grele / 100) * Capital_Par
Tableau1(I, 2) = Prime_Grele
Prime_Temp = (Taux_Temp / 100) * Capital_Par
Tableau1(I, 3) = Prime_Temp
Prime_Arc = (Taux_Arc / 100) * Capital_Par
Tableau1(I, 4) = Prime_Arc
    End Select
End Select
End Select
 
 
'With A
'    .Cells(I, 1).Value = Tableau1(I, 1)
'    .Cells(I, 3).Value = Tableau1(I, 2)
'    .Cells(I, 5).Value = Tableau1(I, 3)
'    .Cells(I, 7).Value = Tableau1(I, 4)
'End With
Next I
 
With A
Range("A2:D" & N).Value = Tableau1()
End With
 
 
 
A.Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Durée du traitement: " & Timer - Start & " secondes"
End Sub

Merci d'avance d'accepter de m'aider, aussi je suis preneur si vous avez des idées pour optimiser mon code.

**Menhir** · 16/07/2018, 10h27

Quand ton code bug, clique sur le bouton débugage et va voir le contenu de la variable Tableau dans la fenêtre des variables locales.
Regarde non seulement la taille mais aussi le contenu et le type.

**ayudame_joel** · 16/07/2018, 10h55

Envoyé par Menhir

Quand ton code bug, clique sur le bouton débugage et va voir le contenu de la variable Tableau dans la fenêtre des variables locales.
Regarde non seulement la taille mais aussi le contenu et le type.

Merci beaucoup pour cette astuce. Alors en regardant la fenetre des variables locales, j'ai remarqué que ma variable tableau que j'ai défini de 1 à N n'est pas en réalité définie de 1 à N mais de 1 à N+1. J'ai fais un test pour N=20 et j'ai fais une capture du résultat en PJ.
Je me demande bien pourquoi.

**ayudame_joel** · 16/07/2018, 11h05

J'ai trouvé la solution. Merci bien. le problème venait de la plage de données que je stockais dans mon tableau.

Erreur 9 : l'indice n'apparatient pas à la sélection

Macros et VBA Excel

Discussions similaires

Partager

Partager