Optmiser vitesse d'execution de ma macro ?

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:

---

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

Bonjour,

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

Code:

---

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:

---

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

---

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

Code:

---

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

---

Ca te fait gagner du temps ?

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

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 :ccool:

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

Merci beaucoup