Récupérer les valeurs d'un tableau à 3 dimensions

Bonjour,

Je cherche un moyen de récupérer les valeurs contenant la variable "X" pour les coller par la suite, sur une feuille Excel à part.

X est défini de la manière suivante : ReDim X(1 To NBR_POINTS, 1 To M, 1 To couche) As Single

Cependant, ma variable est un tableau à trois dimensions, par exemple j'ai : X = (1 To 801, 1 To 2, 1 To 6), j'aimerai récupérer les valeurs cette manière :

X(1,1,1)

X(2,1,1)

X(3,1,1)

etc...

jusqu'à

X(801,1,1)

J'ai testé de cette manière la, mais ça ne fonctionne pas :

Sheets("Val_PPD").Range("B1").Resize(UBound(X, 1), 1), 1) = Application.Index(X, , , , 1)

Il me renvois sur une erreur de type tableau.

Avez vous des idées svp ? Merci d'avance.

Bonjour,

Fournir le classeur et le tableau chargé.

A+

Bonjour galopin01,

Merci d'avoir répondu.

Je ne peux pas vous fournir le classeur pour des raisons personnelles.

Mais en partant du principe que mon tableau X soit chargé, si je souhaite récupérer seulement mon tableau X de cette manière :

X(1,1,1)

X(2,1,1)

X(3,1,1)

etc...

jusqu'à

X(801,1,1)

Dois-je utiliser cette ligne de code, qui crée une plage qui commence en A1 et elle contient le nombre de lignes contenues dans le tableau. Par exemple si j'ai 201 lignes, elles sont transférées en A1:A201 d'un seul coup.

Range("a1").Resize(UBound(X, 1), 1) = Application.Index(X, , 1) 'Fonctionne pour un tableau à 2D

Ou utiliser une boucle for ?

Merci.

Pour un si petit Tablo une boucle For ira très bien.

A+

J'ai essayé de cette manière :

For l = 1 To vec_Incidence

Sheets("Val_PPD").Range("A1").X(i,1,1) = Application.Transpose(X(i,1,1))

Next l

mais j'ai un erreur : " tableau attendu "

Je n'ai jamais utilisé de boucle pour afficher les valeurs d'une variable, as-tu une idée stp ?

Pour afficher en colonne

For i = 1 To vec_Incidence
Sheets("Val_PPD").Range("A" & i)= X(i,1,1)
Next i

Pour afficher en ligne :

For i = 1 To vec_Incidence
Sheets("Val_PPD").Cells(i )= X(i,1,1)
Next i

A+