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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager