Discussion :

[sedam]

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 :

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

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

[Keihilin]

Bonjour,

une première optimisation possible :

Code :

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

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.

[Caro-Line]

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 :

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

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 :

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

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

[sedam]

Wow merci a vous deux.

Code :

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

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

[Caro-Line]

Après je te conseille fortement de chercher dans la

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 :

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

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.

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

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

Application.Calculation = xlCalculationManual

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

Code :

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

Application.Calculation = xlCalculationAutomatic

à la fin, avec un appel à

Code :

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

Application.Calculate()

pour provoquer le recalcul final.

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