Problème d'optimisation code VBA

Version imprimable

06/07/2018, 10h30
Tansquer

Problème d'optimisation code VBA

Bonjour,

Je débute en VBA et j'ai un problème d’optimisation de code. La feuille de calcul est lente à faire le calcul.
Je ne sais pas si il y a un moyen d'optimiser mon code mais si vous avez des idées je suis preneur.
Le but du code est d'affecter des valeurs de cellules de la feuille "Table of Data" à des cellules de la feuille "Calculation".

Voilà le code :

If Range("O20").Value = 0 Then
Worksheets("Calculation").Range("D59").Value = Worksheets("Table of Data").Range("P30").Value
Worksheets("Calculation").Range("D60").Value = Worksheets("Table of Data").Range("P30").Value
Worksheets("Calculation").Range("D61").Value = Worksheets("Table of Data").Range("P32").Value
Worksheets("Calculation").Range("D62").Value = Worksheets("Table of Data").Range("P31").Value
Worksheets("Calculation").Range("K32").Value = Worksheets("Table of Data").Range("P36").Value
Worksheets("Calculation").Range("K33").Value = Worksheets("Table of Data").Range("P35").Value
End If
If Range("O20").Value = 1 Then
Worksheets("Calculation").Range("D59").Value = Worksheets("Table of Data").Range("U30").Value
Worksheets("Calculation").Range("D60").Value = Worksheets("Table of Data").Range("U30").Value
Worksheets("Calculation").Range("D61").Value = Worksheets("Table of Data").Range("U32").Value
Worksheets("Calculation").Range("D62").Value = Worksheets("Table of Data").Range("U31").Value
Worksheets("Calculation").Range("K32").Value = Worksheets("Table of Data").Range("U38").Value
Worksheets("Calculation").Range("K33").Value = Worksheets("Table of Data").Range("U37").Value
Worksheets("Calculation").Range("K34").Value = Worksheets("Table of Data").Range("U35").Value
End If

Je vous remercie par avance si vous avez une solution.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Sour As Variant, Dest as Variant, Lig As Long
 
Select Case Range("O20").Value
Case 0
     Sour = Array("D59", "D60", "D61", "D62", "K32", "K33")
     Dest = Array("P30", "P30", "P32", "P31", "P36", "P35")
Case 1
     Sour = Array("D59", "D60", "D61", "D62", "K32", "K33", "K34")
     Dest = Array("U30", "U30", "U32", "U31", "U38", "U37", "U35")
End Select
 
For Lig = 0 To UBound(Sour)
      Worksheets("Calculation").Range(Sour(Lig)).Value = Worksheets("Table of Data").Range(Dest(Lig)).Value
Next Lig

06/07/2018, 14h26
Tansquer

Je te remercie !!
Ton code m'a permis de rendre plus rapide le calcul.
06/07/2018, 14h50
Menhir

Le code est plus clair et plus souple mais je ne comprends pas pour quelle raison il serait plus rapide qu'un adressage direct... :koi:
06/07/2018, 15h28
Tansquer

Je ne sais pas, en fait avant cette partie du code j'affiche différentes images en fonction de différents paramètres.
Après avoir écrit la suite de mon code (avec toutes les fonctions if), lorsque je changeait un paramètre les images apparaissaient lentement et les affectation de valeur au cellules 1 par 1 (la souris clignotait à chaque condition j'ai l'impression).

J'ai changé mon code par le tien et la souris ne clignote plus et les images apparaissent aussi plus rapidement.

Je suis peut-être fou mais j'ai cette impression.

Merci encore car dans tout les cas ton code est plus clair !