Lenteur VBA Excel 2010

Oui manifestement mais peut-être plus à partir de 2010 car récemment j'ai livré un applicatif sur un i3 donc moins puissant
comparé à mon i5 de référence et sur Excel 2007, j'ai constaté une légère différence mais inhérente au processeur inférieur.

Jusqu'à présent, je n'ai pas rencontré ce cas … (et heureusement !)

J'attends qu'un portable en 2007 rentre pour y faire le test des procédures copie1 & copie2 (ce soir ou dans le week-end) …

Sur portable Windows 7 Pro SP1, 64 bits
Excel 2007 32 bits
Processeur i5 M520 @ 2.40 GHz, 4 Gb de RAM

Macro 1 = 7 sec.
Macro 2 = 19 sec.

Test sur un i3-2370M 2.4Ghz en Windows 7 64 bits sur Excel 2007 : 8 secondes pour copie1 et 22 secondes pour copie2,

comme quoi lorsque l'on programme mal, mieux vaut rester sur la version 2003 ! :lol:

Bonjour,

S'il y a des formules dans tes feuilles, essaie

Code:

---

1 2 3

Application.Calculation = xlCalculationManual ' Ton traitement Application.Calculation = xlCalculationAutomatic

---

il est évidant qu'un office 64 est plus glouton en process et en mémoire qu'un 32 bits. comme déjà dit plus haut, un fichier XLSX contient plus de cellules qu'un XSL.

les variable également, un string 64 contient 2x plus de caractères qu'un String 32. ce qui sous entend que ta capacité mémoire est plus ou moins divisé par 2.

quand tu étais en 32 Bits avec 16Go de mémoire tu en avais sous la pédale.
est-ce-que ton programme était si optimisé que ça?

tu pars du principe que le code sur 64 est plus lent à ce déroulé, personnellement, j'ai effectué récemment, la migration de 1200 fichier office 2003 vers 2010 je n'ai pas remarqué ce phénomène.

mais si en réalité il s'exécutait 10X plus vite en ne laissant pas à Windows le temps de faire le ménage dans la mémoire, ce serrait une révolution et une piste à envisager.

les règles à respecter:
1: si je parcours une plage de cellules pour en lire le contenu, j'instance une variable objet sur la référence de la plage

Code:

---

Set Myrange = Worksheets("Feuil1").UsedRange

---

2: je libère la mémoire

Code:

---

Set Myrange = Nothing

---

3: si il faut faire un traitement sur un plage de cellules je le fais en mémoire

Code:

---

1 2 3

Dim MyPlage As Variant MyPlage = Worksheets("Feuil1").UsedRange.Value Set MyPlage = Nothing

---

4: redonner la main à Windows pour qu'il face le ménage

Code:

---

DoEvents

---