Discussion :

[lmilly]

Bonjour à tous !

Voilà, j'ai une macro qui tourne sur un fichier de plusieurs millier de lignes. Sur la version d'Excel 2010, la macro prenait plusieurs secondes, parfois quelques minutes à s'exécuter en entier. Mais depuis Excel 2016 ce temps d'exécution est passé à parfois plus d'une demi heure....

quelqu'un saurait à quoi ça peut être du ? Je vous met le fichier en lien.
Merci beaucoup

[Menhir]

Sans doute un effet de la loi de Wirth.
https://fr.wikipedia.org/wiki/Loi_de_Wirth

L'effet décrit par cette loi empirique est bien sûr décuplé si le matériel reste le même.

[lmilly]

D'accord...

Donc si je comprend bien, je ne peux pas faire grand chose pour revenir vers un temps d'exécution plus acceptable ?

[Jean-Philippe André]

Salut,
Des gains de temps peuvent se trouver dans certaines petites choses, comme par exemple remplacer ce bloc (au hasard de ton code)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 1).Value = "Modification"
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 2).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 2).Value
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 3).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 7).Value
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 4).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 4).Value
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 5).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 48).Value
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 6).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 29).Value
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 7).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 34).Value
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 8).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 51).Value
            Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET).Cells(MODIFICATION, 9).Value = Workbooks(SIMFILE).Sheets(SIMSHEET).Cells(SIM, 19).Value

par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim wshM as WorkSheet, wshS as Worksheet
Set wshM = Workbooks(SIMFILE).Sheets(MODIFICATIONSHEET)
Set wshS = Workbooks(SIMFILE).Sheets(SIMSHEET)
With wshM
            .Cells(MODIFICATION, 1).Value = "Modification"
            .Cells(MODIFICATION, 2).Value = wshS.Cells(SIM, 2).Value
            .Cells(MODIFICATION, 3).Value = wshS.Cells(SIM, 7).Value
            .Cells(MODIFICATION, 4).Value = wshS.Cells(SIM, 4).Value
            .Cells(MODIFICATION, 5).Value = wshS.Cells(SIM, 48).Value
            .Cells(MODIFICATION, 6).Value = wshS.Cells(SIM, 29).Value
            .Cells(MODIFICATION, 7).Value = wshS.Cells(SIM, 34).Value
            .Cells(MODIFICATION, 8).Value = wshS.Cells(SIM, 51).Value
            .Cells(MODIFICATION, 9).Value = wshS.Cells(SIM, 19).Value
End With

tu "perds" beaucoup de temps a repartir du classeur puis feuille puis cellule puis valeur

[lmilly]

D'accord, merci beaucoup pour ton aide