Discussion :

[ChricChrac]

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

[Jean-Philippe André]

salut,

ton bonheur se trouve dans ce tuto :
https://didier-gonard.developpez.com...s-tableau-vba/

et e n particulier
https://didier-gonard.developpez.com...bleau-vba/#LIX

[ChricChrac]

Un grand merci à Jean Philippe. Le gain de temps est impressionnant.
N.B. Option base 1 m'embêtait car j'utilise les éléments 0 pour certiaines matrice. A la place, j'ai dimensionné les matrices à transferer dans Excel en fixant la limite basse à 1 (Dim x(1 to n, 1 to m)). D'autre part, si on veut transférer un vecteur (matrice à 1 dimension) vers un range, ça ne marche pas (à moins que quelque chose ne m'aie échappé). Pour que ça marche, je dois définir une matrice du stype Dim x(1 to n, 1 to 1).
De ce point de vue, je trouve le tutoriel un peu imprécis.

[anasecu]

Bonsoir,

D'autre part, si on veut transférer un vecteur (matrice à 1 dimension) vers un range, ça ne marche pas

Si ta matrice s'appelle "vecteur" utilise

Code :

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

Range("A1").Resize(UBound(vecteur), 1).Value = Application.Transpose(vecteur)

et cela devrait fonctionner.

[ChricChrac]

Merci anasecu. Cette approche marche bien.