Accélérer le transfert de données vers Excel
Bonjour,
J'ai écrit un programme VBA qui lit des couples (x,y) dans une fichier binaire généré par une machine. Il réalise des calculs sur ces données. Tant que je reste dans VBA, tout se passe bien (très bonne rapidité de calcul) même pour des calculs assez lourds. Quand je veux simplement écrire ces ensembles (x,y) dans des colonnes Excel, là ça rame. Je dois attendre de l'ordre de minutes avant que l'opération se termine.
J'utilise Excel 365. Mon PC dispose d'un I7-5500 et de 8Go.
Les x et les y sont des tableaux en double précision. Les dimensions actuelles sont de x(2^17,10) et y(2^17,10) (dans le code ci-dessous, samplen=10 et nberpoint(ispect)=2^17, le tableaux xbrut et ybrut correspondent à x et à y respectivement).
Quelqu'un aurait-il une astuce pour que ce simple transfert soit plus rapide?
Merci pour votre aide.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Workbooks.Add
sampleworkbookname = ActiveWorkbook.Name
samplesheetname = ActiveSheet.Name
Application.ScreenUpdating = False
For ispect = 1 To samplen
coli = 2 * (ispect - 1) + 1
colj = coli + 1
Cells(1, coli) = "Shift"
Cells(1, colj) = "Int"
For j = 1 To nberpoint(ispect)
rowi = j + 1
Cells(rowi, coli) = xbrut(ispect, j)
Cells(rowi, colj) = ybrut(ispect, j)
Next j
xhigh(ispect) = xbrut(ispect, 1)
xlow(ispect) = xbrut(ispect, nberpoint(ispect))
Next ispect |
