Optmiser vitesse d'execution de ma macro ?

**MpmVb** · 12/08/2010, 10h08

Bonjour le forum,

Je suis désolé de vous poser tant de questions mais il est vrai que je bloque sur un probleme .... le temps d'éxecution de ma macro ! Certes, elle est longue et s'applique sur plusieurs feuilles bien fournies, mais attendre une bonne douzaine de secondes ca fait un petit peu quand même.

Dans les grandes lignes, voici ce qu'elle réalise :
J'ai une feuille scénario, où sont simulés 3 cas possibles à partir de mêmes données placées sur 3 autres feuilles (Recettes FCT, Dépenses FCT et IVT). Chaque scénario possède 33 variables qui sont définies sur un tableau de paramétrage placé sur ma feuille "Scénarios (2)"

Ma question est toute simple, est-ce possible d'optimiser ma macro de manière à ce qu'elle tourne plus vite ?

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
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
Dim Var_Sc1_fisc_2011                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2011
   Var_Sc1_fisc_2011 = Range("Q8").Value                                                    ' On attribue à la variable la valeur de la cellule P8
Dim Var_Sc1_fisc_2012                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2012
   Var_Sc1_fisc_2012 = Range("R8").Value                                                     ' On attribue à la variable la valeur de la cellule Q8
Dim Var_Sc1_fisc_2013                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2013
   Var_Sc1_fisc_2013 = Range("S8").Value                                                        ' On attribue à la variable la valeur de la cellule R8
Dim Var_Sc1_fisc_2014                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2014
   Var_Sc1_fisc_2014 = Range("T8").Value                                                        ' On attribue à la variable la valeur de la cellule S8
Dim Var_Sc1_fisc_2015                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2015
   Var_Sc1_fisc_2015 = Range("U8").Value                                                        ' On attribue à la variable la valeur de la cellule S8
Dim Var_Sc1_fisc_2016                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2016
   Var_Sc1_fisc_2016 = Range("V8").Value                                                        ' On attribue à la variable la valeur de la cellule S8
Dim Var_Sc1_fisc_2017                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2017
   Var_Sc1_fisc_2017 = Range("W8").Value                                                        ' On attribue à la variable la valeur de la cellule S8
Dim Var_Sc1_fisc_2018                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2018
   Var_Sc1_fisc_2018 = Range("X8").Value                                                        ' On attribue à la variable la valeur de la cellule S8
Dim Var_Sc1_fisc_2019                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2019
   Var_Sc1_fisc_2019 = Range("Y8").Value                                                        ' On attribue à la variable la valeur de la cellule S8
Dim Var_Sc1_fisc_2020                                                                   ' On définit la variable Scénario1, liée à l'augmentation fiscale en 2020
   Var_Sc1_fisc_2020 = Range("Z8").Value                                                        ' On attribue à la variable la valeur de la cellule S8
 
Dim Var_Sc1_RE_2011                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2011
   Var_Sc1_RE_2011 = Range("Q9").Value                                                               ' On attribue à la variable la valeur de la cellule Q9
Dim Var_Sc1_RE_2012                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2012
   Var_Sc1_RE_2012 = Range("R9").Value                                                               ' On attribue à la variable la valeur de la cellule R9
Dim Var_Sc1_RE_2013                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2013
   Var_Sc1_RE_2013 = Range("S9").Value                                                               ' On attribue à la variable la valeur de la cellule S9
Dim Var_Sc1_RE_2014                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2014
   Var_Sc1_RE_2014 = Range("T9").Value                                                               ' On attribue à la variable la valeur de la cellule T9
Dim Var_Sc1_RE_2015                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2015
   Var_Sc1_RE_2015 = Range("U9").Value                                                               ' On attribue à la variable la valeur de la cellule U9
Dim Var_Sc1_RE_2016                                                                    ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2016
   Var_Sc1_RE_2016 = Range("V9").Value                                                               ' On attribue à la variable la valeur de la cellule V9
Dim Var_Sc1_RE_2017                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2017
   Var_Sc1_RE_2017 = Range("W9").Value                                                               ' On attribue à la variable la valeur de la cellule W9
Dim Var_Sc1_RE_2018                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2018
   Var_Sc1_RE_2018 = Range("X9").Value                                                               ' On attribue à la variable la valeur de la cellule X9
Dim Var_Sc1_RE_2019                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2019
   Var_Sc1_RE_2019 = Range("Y9").Value                                                               ' On attribue à la variable la valeur de la cellule Y9
Dim Var_Sc1_RE_2020                                                                     ' On définit la variable Scénario1, liée aux recettes exceptionnelles 2020
   Var_Sc1_RE_2020 = Range("Z9").Value                                                               ' On attribue à la variable la valeur de la cellule Z9
 
Dim Var_Sc1_DE_2011                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2011
   Var_Sc1_DE_2011 = Range("Q10").Value                                                               ' On attribue à la variable la valeur de la cellule Q10
Dim Var_Sc1_DE_2012                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2012
   Var_Sc1_DE_2012 = Range("R10").Value                                                               ' On attribue à la variable la valeur de la cellule R10
Dim Var_Sc1_DE_2013                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2013
   Var_Sc1_DE_2013 = Range("S10").Value                                                               ' On attribue à la variable la valeur de la cellule S10
Dim Var_Sc1_DE_2014                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2014
   Var_Sc1_DE_2014 = Range("T10").Value                                                               ' On attribue à la variable la valeur de la cellule T10
Dim Var_Sc1_DE_2015                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2015
   Var_Sc1_DE_2015 = Range("U10").Value                                                               ' On attribue à la variable la valeur de la cellule U10
Dim Var_Sc1_DE_2016                                                                    ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2016
   Var_Sc1_DE_2016 = Range("V10").Value                                                               ' On attribue à la variable la valeur de la cellule V10
Dim Var_Sc1_DE_2017                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2017
   Var_Sc1_DE_2017 = Range("W10").Value                                                               ' On attribue à la variable la valeur de la cellule W10
Dim Var_Sc1_DE_2018                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2018
   Var_Sc1_DE_2018 = Range("X10").Value                                                               ' On attribue à la variable la valeur de la cellule X10
Dim Var_Sc1_DE_2019                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2019
   Var_Sc1_DE_2019 = Range("Y10").Value                                                               ' On attribue à la variable la valeur de la cellule Y10
Dim Var_Sc1_DE_2020                                                                     ' On définit la variable Scénario1, liée aux dépenses exceptionnelles 2020
   Var_Sc1_DE_2020 = Range("Z10").Value                                                               ' On attribue à la variable la valeur de la cellule Z10
 
Dim Var_Sc1_CP                                                                          ' On définit la variable Scénario1, liée aux Capîtaux propres
   Var_Sc1_CP = Range("T11").Value                                                              ' On attribue à la variable la valeur de la cellule T11
Dim Var_Sc1_evol_charg_pers                                                             ' On définit la variable Scénario1, liée à l'évolution des charges de personnel
   Var_Sc1_evol_charg_pers = Range("T12").Value                                                 ' On attribue à la variable la valeur de la cellule T12
Dim Var_Sc1_evol_charg_gen                                                              ' On définit la variable Scénario1, liée à l'évolution des charges générales
    Var_Sc1_evol_charg_gen = Range("T13").Value                                                 ' On attribue à la variable la valeur de la cellule T13
'
'
'
'---------------------------------------------------------Attribution des variables de Sc1 aux variables publiques----------------------------------------------------------------------
'
'
    Augm_fisc_2011 = Worksheets("Scénarios (2)").Range("Q8").Value
    Augm_fisc_2012 = Worksheets("Scénarios (2)").Range("R8").Value
    Augm_fisc_2013 = Worksheets("Scénarios (2)").Range("S8").Value
    Augm_fisc_2014 = Worksheets("Scénarios (2)").Range("T8").Value
    Augm_fisc_2015 = Worksheets("Scénarios (2)").Range("U8").Value
    Augm_fisc_2016 = Worksheets("Scénarios (2)").Range("V8").Value
    Augm_fisc_2017 = Worksheets("Scénarios (2)").Range("W8").Value
    Augm_fisc_2018 = Worksheets("Scénarios (2)").Range("X8").Value
    Augm_fisc_2019 = Worksheets("Scénarios (2)").Range("Y8").Value
    Augm_fisc_2020 = Worksheets("Scénarios (2)").Range("Z8").Value
 
    RE_2011 = Worksheets("Scénarios (2)").Range("Q9").Value
    RE_2012 = Worksheets("Scénarios (2)").Range("R9").Value
    RE_2013 = Worksheets("Scénarios (2)").Range("S9").Value
    RE_2014 = Worksheets("Scénarios (2)").Range("T9").Value
    RE_2015 = Worksheets("Scénarios (2)").Range("U9").Value
    RE_2016 = Worksheets("Scénarios (2)").Range("V9").Value
    RE_2017 = Worksheets("Scénarios (2)").Range("W9").Value
    RE_2018 = Worksheets("Scénarios (2)").Range("X9").Value
    RE_2019 = Worksheets("Scénarios (2)").Range("Y9").Value
    RE_2020 = Worksheets("Scénarios (2)").Range("Z9").Value
 
    DE_2011 = Worksheets("Scénarios (2)").Range("Q10").Value
    DE_2012 = Worksheets("Scénarios (2)").Range("R10").Value
    DE_2013 = Worksheets("Scénarios (2)").Range("S10").Value
    DE_2014 = Worksheets("Scénarios (2)").Range("T10").Value
    DE_2015 = Worksheets("Scénarios (2)").Range("U10").Value
    DE_2016 = Worksheets("Scénarios (2)").Range("V10").Value
    DE_2017 = Worksheets("Scénarios (2)").Range("W10").Value
    DE_2018 = Worksheets("Scénarios (2)").Range("X10").Value
    DE_2019 = Worksheets("Scénarios (2)").Range("Y10").Value
    DE_2020 = Worksheets("Scénarios (2)").Range("Z10").Value
 
    CP_scenarios = Worksheets("Scénarios (2)").Range("T11").Value
    evol_charg_pers_scenarios = Worksheets("Scénarios (2)").Range("T12").Value
    evol_charg_gen_scenarios = Worksheets("Scénarios (2)").Range("T13").Value
 
'-------------------------------------------------------------------Attribution de valeur aux cellules du scénario---------------------------------------------------------
 
    Worksheets("Scénarios (2)").Range("H7").Value = Var_Sc1_fisc_2011
    Worksheets("Scénarios (2)").Range("I7").Value = Var_Sc1_fisc_2012
    Worksheets("Scénarios (2)").Range("J7").Value = Var_Sc1_fisc_2013
    Worksheets("Scénarios (2)").Range("K7").Value = Var_Sc1_fisc_2014
    Worksheets("Scénarios (2)").Range("L7").Value = Var_Sc1_fisc_2015
    Worksheets("Scénarios (2)").Range("H9").Value = Var_Sc1_fisc_2016
    Worksheets("Scénarios (2)").Range("I9").Value = Var_Sc1_fisc_2017
    Worksheets("Scénarios (2)").Range("J9").Value = Var_Sc1_fisc_2018
    Worksheets("Scénarios (2)").Range("K9").Value = Var_Sc1_fisc_2019
    Worksheets("Scénarios (2)").Range("L9").Value = Var_Sc1_fisc_2020
 
    Worksheets("Scénarios (2)").Range("B21").Value = Var_Sc1_RE_2011
    Worksheets("Scénarios (2)").Range("C21").Value = Var_Sc1_RE_2012
    Worksheets("Scénarios (2)").Range("D21").Value = Var_Sc1_RE_2013
    Worksheets("Scénarios (2)").Range("E21").Value = Var_Sc1_RE_2014
    Worksheets("Scénarios (2)").Range("F21").Value = Var_Sc1_RE_2015
    Worksheets("Scénarios (2)").Range("G21").Value = Var_Sc1_RE_2016
    Worksheets("Scénarios (2)").Range("H21").Value = Var_Sc1_RE_2017
    Worksheets("Scénarios (2)").Range("I21").Value = Var_Sc1_RE_2018
    Worksheets("Scénarios (2)").Range("J21").Value = Var_Sc1_RE_2019
    Worksheets("Scénarios (2)").Range("K21").Value = Var_Sc1_RE_2020
 
    Worksheets("Scénarios (2)").Range("B22").Value = Var_Sc1_DE_2011
    Worksheets("Scénarios (2)").Range("C22").Value = Var_Sc1_DE_2012
    Worksheets("Scénarios (2)").Range("D22").Value = Var_Sc1_DE_2013
    Worksheets("Scénarios (2)").Range("E22").Value = Var_Sc1_DE_2014
    Worksheets("Scénarios (2)").Range("F22").Value = Var_Sc1_DE_2015
    Worksheets("Scénarios (2)").Range("G22").Value = Var_Sc1_DE_2016
    Worksheets("Scénarios (2)").Range("H22").Value = Var_Sc1_DE_2017
    Worksheets("Scénarios (2)").Range("I22").Value = Var_Sc1_DE_2018
    Worksheets("Scénarios (2)").Range("J22").Value = Var_Sc1_DE_2019
    Worksheets("Scénarios (2)").Range("K22").Value = Var_Sc1_DE_2020
 
    Worksheets("Scénarios (2)").Range("E7").Value = Var_Sc1_CP
    Worksheets("Scénarios (2)").Range("E8").Value = Var_Sc1_evol_charg_pers
    Worksheets("Scénarios (2)").Range("E9").Value = Var_Sc1_evol_charg_gen
 
'-------------------------------------------------------------------Attribution de valeur aux cellules des feuilles Dépenses, Recettes et IVT------------------------------
 
    ThisWorkbook.Worksheets("IVT").Range("H3:H12").Value = CP_scenarios * (179 / 250)
    ThisWorkbook.Worksheets("IVT").Range("H13:H22").Value = CP_scenarios * (60 / 250)
    ThisWorkbook.Worksheets("IVT").Range("H23:H32").Value = CP_scenarios * (11 / 250)
 
    ThisWorkbook.Worksheets("Dépenses FCT").Range("J11:J40").Value = evol_charg_pers_scenarios
    ThisWorkbook.Worksheets("Dépenses FCT").Range("J49:J58,J95:J104,J109:J128,J163:J172").Value = evol_charg_gen_scenarios
 
    ThisWorkbook.Worksheets("Recettes FCT").Range("L2,L16,L30").Value = Augm_fisc_2011
    ThisWorkbook.Worksheets("Recettes FCT").Range("L3,L17,L31").Value = Augm_fisc_2012
    ThisWorkbook.Worksheets("Recettes FCT").Range("L4,L18,L32").Value = Augm_fisc_2013
    ThisWorkbook.Worksheets("Recettes FCT").Range("L5,L19,L33").Value = Augm_fisc_2014
    ThisWorkbook.Worksheets("Recettes FCT").Range("L6,L20,L34").Value = Augm_fisc_2015
    ThisWorkbook.Worksheets("Recettes FCT").Range("L7,L21,L35").Value = Augm_fisc_2016
    ThisWorkbook.Worksheets("Recettes FCT").Range("L8,L22,L36").Value = Augm_fisc_2017
    ThisWorkbook.Worksheets("Recettes FCT").Range("L9,L23,L37").Value = Augm_fisc_2018
    ThisWorkbook.Worksheets("Recettes FCT").Range("L10,L24,L38").Value = Augm_fisc_2019
    ThisWorkbook.Worksheets("Recettes FCT").Range("L11,L25,L39").Value = Augm_fisc_2020
 
    ThisWorkbook.Worksheets("Recettes FCT").Range("L30").Value = Augm_fisc_2011 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L31").Value = Augm_fisc_2012 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L32").Value = Augm_fisc_2013 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L33").Value = Augm_fisc_2014 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L33").Value = Augm_fisc_2015 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L33").Value = Augm_fisc_2016 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L33").Value = Augm_fisc_2017 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L33").Value = Augm_fisc_2018 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L33").Value = Augm_fisc_2019 * "0,876330965916287"
    ThisWorkbook.Worksheets("Recettes FCT").Range("L33").Value = Augm_fisc_2020 * "0,876330965916287"
 
    ThisWorkbook.Worksheets("Recettes FCT").Range("O155").Value = RE_2011
    ThisWorkbook.Worksheets("Recettes FCT").Range("O156").Value = RE_2012
    ThisWorkbook.Worksheets("Recettes FCT").Range("O157").Value = RE_2013
    ThisWorkbook.Worksheets("Recettes FCT").Range("O158").Value = RE_2014
    ThisWorkbook.Worksheets("Recettes FCT").Range("O159").Value = RE_2015
    ThisWorkbook.Worksheets("Recettes FCT").Range("O160").Value = RE_2016
    ThisWorkbook.Worksheets("Recettes FCT").Range("O161").Value = RE_2017
    ThisWorkbook.Worksheets("Recettes FCT").Range("O162").Value = RE_2018
    ThisWorkbook.Worksheets("Recettes FCT").Range("O163").Value = RE_2019
    ThisWorkbook.Worksheets("Recettes FCT").Range("O164").Value = RE_2020
 
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H209").Value = DE_2011
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H210").Value = DE_2012
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H211").Value = DE_2013
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H212").Value = DE_2014
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H213").Value = DE_2015
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H214").Value = DE_2016
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H215").Value = DE_2017
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H216").Value = DE_2018
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H217").Value = DE_2019
    ThisWorkbook.Worksheets("Dépenses FCT").Range("H218").Value = DE_2020
 
End Sub

La problématique est que, je dois pour les mêmes données, pouvoir simuler 3 scénarios distincts en modifiant différents paramètres Ceux-ci sont définis par mes variables. Lorsque je les change, ceci ne doit pas venir affecter mes résultat du précédent scénario (j'espère que j'ai réussi à me faire comprendre).

Merci par avance de votre aide

**Yoyo57** · 12/08/2010, 10h38

Bonjour,

Il faudrait dans un premier temps typer tes variables, sinon, elles sont typées Variant par défaut.
Inscrire par exemple

Code :

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

1
2
Dim Var_Sc1_fisc_2011 as Integer 'Pour un entier
Dim Var_Sc1_fisc_2011 as String 'Pour une chaîne de caractère

Ensuite, je pense que tu peux gagner du temps en inscrivant au début du code

Code :

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

1
2
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Sans oublier de rétablir tes paramètres à la fin du code

Code :

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

1
2
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Ca te fait gagner du temps ?

**barak03** · 12/08/2010, 10h47

Bonjour,
Tu peux essayer d'utiliser des tableaux au lieu d'avoir une variable par année.
Tu peux aussi sélectionner les feuilles avant d'accéder à leur contenu.

Bon courrage!

---------------------------------------
Mathieu

**MpmVb** · 12/08/2010, 11h14

Bonjour Yoyo57 et barak03

En effet, j'ai pris vos astuces (sauf la définition d'un tableau) et cela améliore grandement la rapidité d'exécution de la macro ! Je suis passé d'une bonne 12aine de secondes à seulement 2 secondes environ

Si d'autres idées à suggérer, elles sont bien entendu les bienvenues

Merci beaucoup

Optmiser vitesse d'execution de ma macro ?

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager