[XL-2016] Lenteur de la macro au changement de version Excel

1 pièce(s) jointe(s)

Lenteur de la macro au changement de version Excel

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

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.

D'accord...

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

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

Code:

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:

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

D'accord, merci beaucoup pour ton aide :)