messaged'erreur: l'indice n'appartient pas à la selection

**erlerwade** · 03/04/2012, 12h44

Bonjour Forum :
je voudrais savoir plus sur ce message d'erreur : "l'indice n'appartient pas à la sélection.
Merci d'avance

**kiki29** · 03/04/2012, 13h03

Salut, nous aussi, via une recherche

**erlerwade** · 03/04/2012, 13h11

Ah désolé :
voici mon code :

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
Macro1()

Dim Tab_CAC(0 To 1000, 0 To 30) As Double
Dim Tab_DivCAC(0 To 1000, 0 To 30) As Double

Dim Tab_ESTOXX(0 To 1000, 0 To 30) As Double
Dim Tab_DivESTOXX(0 To 1000, 0 To 30) As Double

Dim Tab_IMMOBILIER(0 To 1000, 0 To 30) As Double
Dim Tab_divIMMOBILIER(0 To 1000, 0 To 30) As Double

Dim Tab_PRIVATEQUITY(0 To 1000, 0 To 30) As Double
Dim Tab_DivPRIVATEQUITY(0 To 1000, 0 To 30) As Double

Dim Tab_HEDGFUND(0 To 1000, 0 To 30) As Double
Dim Tab_DivHEDGFUND(0 To 1000, 0 To 30) As Double

Dim Tab_Deflator(0 To 1000, 0 To 30) As Double
Dim Tab_Deflator_MENSUEL(0 To 1000, 0 To 360) As Double

Dim Tab_Tx_1m(0 To 1000, 0 To 30) As Double
Dim Tab_Tx_1m_MENSUEL(0 To 1000, 0 To 360) As Double

Dim Tab_Tx_3m(0 To 1000, 0 To 30) As Double
Dim Tab_Tx_1y(0 To 1000, 0 To 30) As Double
Dim Tab_Tx_5y(0 To 1000, 0 To 30) As Double
Dim Tab_Tx_10y(0 To 1000, 0 To 30) As Double

Dim Tab_INFLATION(0 To 1000, 0 To 30) As Double

Dim iteration As Integer
Dim period As Integer

Dim deflator As Double
Dim constante As Double

Dim nom_rate_0_083yr As Double
Dim nom_rate_0_25yr As Double
Dim nom_rate_0_5yr As Double
Dim nom_rate_0_75yr As Double
Dim nom_rate_1yr As Double
Dim nom_rate_2yr As Double
Dim nom_rate_3yr As Double
Dim nom_rate_4yr As Double
Dim nom_rate_5yr As Double
Dim nom_rate_7yr As Double
Dim nom_rate_10yr As Double
Dim nom_rate_15yr As Double
Dim nom_rate_20yr As Double
Dim nom_rate_25yr As Double

Dim cac_return As Double
Dim cac_return_div As Double
Dim eurostoxx_return As Double
Dim eurostoxx_return_div As Double
Dim immobilier_return As Double
Dim immobilier_return_div As Double
Dim Hedgfund_return As Double
Dim Hedgfund_return_div As Double
Dim privatequity_return As Double
Dim privatequity_return_div As Double

Dim inflation As Double
Dim Nomfichier As String
Dim facteur As Integer
Dim Scenario As Double

Dim PerfCAC As Double
Dim PerfESTOXX As Double
Dim PerfIMMOBILIER As Double
Dim PerfHEDGFUND As Double
Dim PerfPRIVATEQUITY As Double

Dim DivCAC As Double
Dim DivESTOXX As Double
Dim DivIMMOBILIER As Double
Dim DivHEDGFUND As Double
Dim DivPRIVATEQUITY As Double

Dim Annee As Double
Dim mois As Double

Dim ligne1 As String

Sheets("Resultats").Select
Nomfichier = Cells(5, 2).Value
facteur = Cells(5, 23).Value

Scenario = 1
                PerfCAC = 0
                PerfESTOXX = 0
                PerfIMMOBILIER = 0
                PerfHEDGFUND = 0
                PerfPRIVATEQUITY = 0
                
                DivCAC = 0
                DivESTOXX = 0
                DivIMMOBILIER = 0
                DivHEDGFUND = 0
                DivPRIVATEQUITY = 0
Annee = 1
mois = 1

Open (Nomfichier) For Input As #1
        'lit la première ligne constitué des en-tête de colonne
        Line Input #1, ligne1
        
        Do While Not EOF(1)
                
' Lecture de la table
                
            'Input #1, Trial, Timestep, Deflator, blank, NominalSpotRate_008333, NominalSpotRate_025, _
             '   NominalSpotRate_05, NominalSpotRate_075, NominalSpotRate_1, NominalSpotRate_2, NominalSpotRate_3, _
             '   NominalSpotRate_4, NominalSpotRate_5, NominalSpotRate_7, NominalSpotRate_10, NominalSpotRate_15, _
             '   NominalSpotRate_20, NominalSpotRate_25, _
             '   CACTotalReturn, CACDividendYieldValue, E_EURTotalReturn, E_EURDividendYieldValue, _
             '   P_EURTotalReturn, P_EURDividendYieldValue, Hedge_fundTotalReturn, Hedge_fundDividendYieldValue, _
             '   Private_equityTotalReturn, Private_equityDividendYieldValue, InflationRate

            Input #1, iteration, period, deflator, constante, _
                nom_rate_0_083yr, nom_rate_0_25yr, nom_rate_0_5yr, nom_rate_0_75yr, nom_rate_1yr, nom_rate_2yr, nom_rate_3yr, _
                nom_rate_4yr, nom_rate_5yr, nom_rate_7yr, nom_rate_10yr, nom_rate_15yr, _
                nom_rate_20yr, nom_rate_25yr, _
                cac_return, cac_return_div, eurostoxx_return, eurostoxx_return_div, _
                immobilier_return, immobilier_return_div, Hedgfund_return, Hedgfund_return_div, _
                privatequity_return, privatequity_return_div, inflation

            If Scenario <> iteration Then
                
                Scenario = Scenario + 1
                
                PerfCAC = 0
                PerfESTOXX = 0
                PerfIMMOBILIER = 0
                PerfHEDGFUND = 0
                PerfPRIVATEQUITY = 0
                
                DivCAC = 0
                DivESTOXX = 0
                DivIMMOBILIER = 0
                DivHEDGFUND = 0
                DivPRIVATEQUITY = 0
                                
                Annee = 1
                mois = 1
            
            End If
            
            
            If period <> 0 Then
                   Tab_Deflator_MENSUEL(Scenario, mois) = deflator
                   Tab_Tx_1m_MENSUEL(Scenario, mois) = nom_rate_0_083yr / facteur
                   mois = mois + 1
                   
             End If

et au niveau de la ligne de code en rouge la macro se plante et me mets le message d'erreur :"l'indice n'appartient pas a la sélection
Merci sachant que je suis en

Code :

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

Option Explicit

**kiki29** · 03/04/2012, 13h19

Re, à lire http://silkyroad.developpez.com/VBA/GestionErreurs/

**erlerwade** · 03/04/2012, 13h24

merci pour le lien mais si quelqu'un peut m'aider sur cette présente erreur car je vois pas du tout pourquoi j'ai ce message d'erreur l'indice n’appartient pas à la sélection
merci d'avance

**Jean-Philippe André** · 03/04/2012, 13h32

salut,

on essaie de t'apprendre à pêcher, et on ne pêchera pas pour toi

quelles sont les valeurs de tes variables au moment de l'erreur ?
que valent

Code :

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

Scenario

et

Code :

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

mois

dans la ligne

Code :

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

 Tab_Deflator_MENSUEL(Scenario, mois)

quelles sont les dimensions déclarées à la création ?

Code :

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

Dim Tab_Deflator_MENSUEL(0 To 1000, 0 To 360) As Double

Tu as toutes les clés en main pour trouver

**erlerwade** · 03/04/2012, 14h26

Merci pour les indications c'est juste que j'ai plus codé depuis fort longtemps !

scénario vaut 1001
mois vaut 1
Au moment de l'erreur

**Jean-Philippe André** · 03/04/2012, 14h35

donc tu as dépassé la limite de déclaration de ton tablea

ce qui explique que l'erreur soit générée.

Il te faudra donc :
- soit tester si la limite est atteinte et gérer le cas échéant
- soit augmenter la taille de départ de ton tableau

**erlerwade** · 03/04/2012, 19h26

Merci Forum !
J'ai réussi à régler le problème grâce a vous

messaged'erreur: l'indice n'appartient pas à la selection

Macros et VBA Excel

Discussions similaires

Partager

Partager