Optimisation de code

Version imprimable

Bonjour, j'ai fait un petit macro sous excel mais il est tres lent lorsque j'ai beaucoup de donnees.

Donc je me demandais est ce que vous voyez un moyen d'optimiser cette partie du code:
Code:

1 2 3 4 5 6 7 8 9 rowNum2 = 16 Do Until Worksheets("feuille").Cells(rowNum2, 1) = "" If Worksheets("feuille").Cells(rowNum, 2) < Worksheets("feuille").Cells(11, 3) Then Worksheets("feuille").Cells(rowNum2, 10).FormulaR1C1 = "=(R7C3*(RC[-1]^3)+R8C3*(RC[-1]^2)+R9C3*RC[-1]+R10C3)" 'Calculation Else Worksheets("feuille").Cells(rowNum2, 10).FormulaR1C1 = "=(R7C3*(RC[-2]^3)+R8C3*(RC[-2]^2)+R9C3*RC[-2]+R10C3)" 'Calculation End If rowNum2 = rowNum2 + 1 Loop
Donc voila, vous comprendrez que sur une feuille de 12 000 lignes, ca devient assez long a remplir...
C'est pourquoi j'aimerai savoir comment je pourrais modifier le code pour accelerer les choses ;-)

Ce code dois verifier si la valeur de la (ligne X,colonne2) est plus grande qu'une constante.
Si la valeur est plus petite je fait un calcule a partir de (ligneX, colonne-1)
Si la valeur est plus grande je doir faire le meme calcule mais cette fois avec (ligneX, Colonne-2)

Bon j'espere que j'ai ete clair.
Merci d'avance
Sedam

Bonjour,

une première optimisation possible :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim rowNum2 as Integer = 16
Dim constant as Integer = Worksheets("feuille").Cells(11, 3)
 
Do Until Worksheets("feuille").Cells(rowNum2, 1) = ""
            If Worksheets("feuille").Cells(rowNum, 2) < constant Then
            Worksheets("feuille").Cells(rowNum2, 10).FormulaR1C1 = "=(R7C3*(RC[-1]^3)+R8C3*(RC[-1]^2)+R9C3*RC[-1]+R10C3)" 'Calculation
            Else
            Worksheets("feuille").Cells(rowNum2, 10).FormulaR1C1 = "=(R7C3*(RC[-2]^3)+R8C3*(RC[-2]^2)+R9C3*RC[-2]+R10C3)" 'Calculation
            End If
        rowNum2 = rowNum2 + 1
        Loop

mais bon, il ne faut pas t'attendre à des miracles je pense.

Tu n'aurais pas la possibilité de trier au préalable ton tableau pas rapport à ta colonne 10 ?
Il me semblerait que ce serait alors plus simple puisque tu ferais un truc du genre (pseudocode à ma manière) :
Code:

1 2 3 4 5 6 tant que colonne(10) < constante faire ça fin tant que faire jusqu'à la fin faire l'autre truc fin
A mon avis ça prendrait moins de temps que de faire ton if nombreDeLignes fois.

Après pour la lisibilité du code (je ne sais pas si ça améliore les perfs) je mettrais un petit With :
Code:

1 2 3 4 5 6 7 8 9 10 11 With Worksheets("feuille") Do Until .Cells(rowNum2, 1) = "" If .Cells(rowNum, 2) < constant Then .Cells(rowNum2, 10).FormulaR1C1 = "=(R7C3*(RC[-1]^3)+R8C3*(RC[-1]^2)+R9C3*RC[-1]+R10C3)" 'Calculation Else .Cells(rowNum2, 10).FormulaR1C1 = "=(R7C3*(RC[-2]^3)+R8C3*(RC[-2]^2)+R9C3*RC[-2]+R10C3)" 'Calculation End If rowNum2 = rowNum2 + 1 Loop End With

18/06/2008, 17h52
sedam

Wow merci a vous deux.

Code:

Dim constant as Integer = Worksheets("feuille").Cells(11, 3)

J'avoue que ca va deja aider un peu, je viens de me rendre compte que je n'utilise pas assez les avriables et les constantes quand je peux le faire. Ca m'ouvre un peu les yeux, merci

caro95470, je comprend bien le principe, merci je vais essayer ca.
Et cool pour le fonction with, je ne savais pas que ca existait, mon code risque d'etre beaucoup plus lisble.

Merci encore
18/06/2008, 17h59
Caro-Line
Après je te conseille fortement de chercher dans la :faq:

Par exemple :
Comment retrouver les numéros des dernières lignes et dernières colonnes renseignées dans une feuille ?

Te permettrait d'éviter le do until qui fait la comparaison à chaque fois.

As-tu pensé aussi à mettre :
Code:

1 2 3 Application.DisplayAlerts = False 'Tout ton code ici Application.DisplayAlerts = True
En général ça va un peu plus vite et surtout ça pique moins les yeux.
18/06/2008, 19h03
Laestic

Tu peux aussi regarder du côté de Application.Calculation , propriété qui définit comment Excel (re)calcule les formules. Il s'agirait de le faire

Code:

Application.Calculation = xlCalculationManual

au début du traitement pour éviter les recalculs intermédiaires à chaque itération, puis de repasser en

Code:

Application.Calculation = xlCalculationAutomatic

à la fin, avec un appel à

Code:

Application.Calculate()

pour provoquer le recalcul final.

Je n'ai pas testé moi-même...

Hey ben merci beaucoup a vous tous.

caro95470, j'ai fait comme tu m'avais conseillé,

Citation:

Tu n'aurais pas la possibilité de trier au préalable ton tableau pas rapport à ta colonne 10 ?
Il me semblerait que ce serait alors plus simple puisque tu ferais un truc du genre (pseudocode à ma manière) :
Code :

tant que colonne(10) < constante
faire ça
fin tant que
faire jusqu'à la fin
faire l'autre truc
fin

J'ai gagner 90% de temps, donc plutot que de prendre 2 min pour faire le calcule, ça ne prend que quelques seconde :king:
Mais bon, malheureusement(ou heureusement) j'ai du changer plusieur partie du code et maintenant je fait les deux calcules et j'éxécute ma condition beaucoup plus loin dans le code...
ca ressemble un peu a ça(bon je sais que le code n'est pas parfais, mais pour l'instant ca fait ce que je veux;) ):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 With ActiveWorkbook.Worksheets("feuille") .Range("J16").FormulaR1C1 = "=(calcule)" 'eU Calculation .Range("J16:J" + CStr(rowNum)).FillDown .Range("L16").FormulaR1C1 = "=(calcule2)" 'eUGM Calculation .Range("L16:L" + CStr(rowNum)).FillDown End With ... rowNum = 16 Do Until Worksheets("feuille").Cells(rowNum, 1) = "" 'Select all data bigger than gr cutoff If Worksheets("feuille").Cells(rowNum, 10) < 0.02 Then rowNum = rowNum + 1 Else toDepth = Worksheets("feuille").Cells(rowNum, 15) Do Until Worksheets("feuille").Cells(rowNum, 10) < 0.02 'to get values bigger than gr cutoff valG = valG + Worksheets("feuille").Cells(rowNum, 13) If Worksheets("feuille").Cells(rowNum, 12) > maxGr Then 'to get values of max gr maxGr = Worksheets("feuille").Cells(rowNum, 12) End If rowNum = rowNum + 1 Loop
P.S je sais que pour les rowNum c'est pas vraiment l'idéal, mais j'ai besoin de renvoyé le numéro de la ligne en cours à plusieurs reprise donc c'est plus pratique pour moi.

Enfin merci pour tout, j'ai appris beaucoup de truc.