Discussion :

[SpaceX]

Bonjour,

J'ai ouvert un topic récemment qui est presque semblable à mon problème d'autrefois mais j'ai préféré ouvrir un autre topic :

https://www.developpez.net/forums/d1...-2-dimensions/

A présent je cherche un moyen d'obtenir les valeurs d'une variable X = (1 To 801, 1 To 2, 1 To 6), soit un tableau à 3 dimensions.

Je souhaite récupérer à chaque fois :

X(1,1,1)
X(2,1,1)
X(3,1,1)
etc...
...
...

jusqu'à
X(801,1,1)

Puis les afficher dans une feuille Excel

Avez vous des idées svp ?

[Menhir]

Fais trois boucles For To.

[SpaceX]

Fais trois boucles For To.

J'ai essayé de cette manière, mais j'ai une erreur d'indice.

Code :

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

1
2
3
4
5
6
7
For i = 1 To NBR_POINTS
    For k = 1 To M
        For l = 1 To vec_Incidence
            Sheets("Val_PPD").Range("A1").Resize(UBound(X(i,1,1)) = Application.Transpose(X(i,1,1))
        Next l
    Next k
Next i

[Menhir]

Il y a de nombreux problèmes dans ton code.

Dans l'instruction qui est à l'intérieur de tes boucles, tu n'utilises pas les variables k et l. Ca ne te semble pas étrange ?

Pourquoi avoir essayé de faire un Resize sur le Range alors que tu veux simplement lui appliquer une valeur ? Il suffit de donner les coordonnées souhaitées dans un Cells.
https://msdn.microsoft.com/fr-fr/VBA...e-object-excel

Je crois que tu n'as pas compris l'utilisation et la syntaxe de la fonction UBound.
https://msdn.microsoft.com/fr-fr/VBA...bound-function

Cette fonction n'a rien à faire là où tu l'as placée.
Par contre, elle pourrait être utile pour fixer la limite supérieure de tes For To.

Pourquoi avoir essayer de faire une transposition sur une valeur unique ? C'est inutile.
Il suffit de donner la variable avec les bons indices.