Dimensionner tableau 3d

Bonjour,

Je souhaite déclarer un tableau en 3 dimensions dont la taille dépend de 3 valeurs précédemment calculées.
Pour initialiser un tableau, il faut utiliser des constantes, or les dimensions utilisées doivent être préalablement calculées dans mon cas et ne sont en aucun cas connues par avance.
Quelque soit ma façon de procéder, j'ai rencontré des erreurs du type "Constant expression required" en initialisant mon tableau.
La fonction ReDim n'est pas viable dans mon cas puisque toutes les dimensions doivent être modifiées et non juste la dernière si j'initialise mon tableau sans ses dimensions finales.
Mon problème se résume donc en cette question: existe-t-il une méthode pour redimensionner un tableau de 3 dimensions ou pour créer des constantes dotées de valeurs préalablement calculées, pourquoi pas dans une autre fonction ,qui serviraient à dimensionner mon tableau lors de sa déclaration?

Voici une de mes tentatives

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'Détermination du nombre de i Range("F2").Select Do While Not (IsEmpty(ActiveCell)) length_i = length_i + 1 Range("F" & length_i + 2).Select Loop 'Création d'une constante contenant le nombre de i Const l_i as Integer = length_i   '###Même méthode pour les 2 autres dimensions du tableau ###   'Création du tableau Dim tTab(1 to l_i, 1 to l_j, 1 to l_k) as integer

---

Merci d'avance pour vos réponses

Tu peux redimensionner un tableau en l'écrasant en utilisant Redim...

Si tu veux préserver les valeurs écrites c'est Redim Preserve, mais tu ne pourras redimensionner que la dernière dimension dans ce cas là.

Le redimensionnement coûte cher en temps, je te conseille te trouver tes paramètres et de ne redimensionner qu'une fois, puis de le remplir par la suite.

En résumé: Tu peux effectivement utiliser Redim, je ne vois pas où serait ton problème.

Si tu veux calculer tes variables de longueur de dimensions dans une fonction et les passer en array à ton sub, c'est possible, sinon par l'intermédiaire de variables globales aussi, sinon tu peux les écrire dans des feuilles ou dans le registre ou dans ta tête puis les entrere en msgbox, les publiposter sur un serveur pour aller les récupérer par la suite, les entrer dans une BD relationnelle et aller les chercher ou alors tout simplement faire un tableau géant qui englobera toutes les possibilités de ton tableau et n'en utiliser qu'une partie.

Comme tu vois, tu as le choix ;)

Merci EngueEngue pour ta réponse rapide!

Concernant Redim j'avais fait quelques recherches avant de poster et j'ai lu quelque part que l'on ne pouvait modifier que la dernière dimension, après avoir écumé l'internet je ne sais pas si je pourrais retrouver ce passage :oops:
Du coup si ça fonctionne pour toutes les dimensions d'un tableau c'est nickel!
Merci pour toutes ces suggestions, si Redim n'est pas la solution optimale je vais plutôt passer par une de tes méthodes.

Redim te permet de redimensionner toutes les dimensions
Redim Preserve uniquement la dernière.

Redim Preserve sert à redimensionner un tableau déjà rempli en "préservant" les données de celui ci.

Bonjour,

quelque soit le nombre de dimensions d'un tableau, pour l'alimenter avec des variables, il faut le déclarer non dimensionné et faire un ReDim ensuite...

genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Gogo(ParamDim1 As Byte, ParamDim2 As Byte, ParamDim3 As Byte) Dim OrmonthTab() As Variant   ReDim OrmonthTab(ParamDim1, ParamDim2, ParamDim3)   Stop 'visualisation fenêtre Variables Locales si voulu End Sub     Sub AlimentationDesDim() Dim Blabla1 As Byte Dim Blabla2 As Byte Dim Blabla3 As Byte   ' Code 'Code Blabla1 = 10 Blabla2 = 8 Blabla3 = 6 Call Gogo(Blabla1, Blabla2, Blabla3) ' Code ? End Sub

---

vois ce Tuto ainsi que le lien vers les commandes de tableau qui y est incorporé ;)
Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

cordialement,

Didier

@EngueEngue: en effet j'avais une petite incompréhension sur ReDim, tout est plus clair maintenant grâce à toi :mrgreen:
@Ormonth: Merci pour tes indications et ton très bon tuto ;)