Indexer un tableau

[Magic_Doctor]

Bonsoir,

Je déclare plusieurs tableaux :
Dim t1(), t2(), t3()...

Je charge chaque tableau.
Les valeurs de chaque tableau seront transposées dans une colonne spécifique d'un tableau de la feuille. Par exemple :
valeurs t1 --> 1ère colonne du tableau de la feuille
valeurs t2 --> 2ème colonne du tableau de la feuille
valeurs t3 --> 3ème colonne du tableau de la feuille
etc.
En d'autres termes, il y a autant de tableaux virtuels (t) que de colonnes dans le tableau de la feuille.
Comment s'y prendrait-on pour, au final, transposer tous les résultats en un tournemain au moyen, par exemple, d'une boucle du genre (en supposant que la 1ère cellule de la 1ère colonne du tableau de la feuille se nomme "Zaza") :

For k To NbColTabFeuille
   [Zaza].Offset(1, k).Resize(UBound(t(k)))= Application.Transpose(t(k))
Next

Merci d'avance pour vos avis.

 

[BOISGONTIER]

Re : Indexer un tableau

Bonsoir,

Sub TableauxIndexes()
   Dim a(1 To 4)
   Dim b(1 To 4)
   Dim c(1 To 4)
   For i = 1 To 4    ' Remplissage des tableaux a(), b(), c()
     a(i) = i
     b(i) = i * 2
     c(i) = i * 3
   Next i
   tbl = Array(a, b, c)       ' Tbl() est un tableau à 1 dimension (0 à 2)
   For col = LBound(tbl) To UBound(tbl)
     Cells(1, 1).Offset(, col).Resize(UBound(a)) = Application.Transpose(tbl(col))
   Next col
End Sub

Les tableaux

JB

 

[Dranreb]

Re : Indexer un tableau

Bonsoir.
Dans le cas que vous exposez en particulier, vous auriez meilleur temps de travailler avec un tableau à 2 dimensions, comme ça vous pourriez décharger les 3 colonnes d'un coup.

 

[Magic_Doctor]

Re : Indexer un tableau

Bonsoir BOISGONTIER, Dranreb, le forum...

Pas pu répondre avant.
Merci pour vos réponses.
La solution de BOISGONTIER marche très bien.
Dranreb, je pense que vous avez tout à fait raison. Ne maniant pas très bien les tableaux, j'avais conçu plusieurs tableaux d'une seule dimension chacun, pensant pouvoir les indexer. BOISGONTIER me montre que c'est possible mais pas si simple (imaginons que dans le tableau "récepteur" de la feuille il y ait 36 colonnes...). Donc je vais tâcher d'un peu potasser les tableaux en 2 dimensions, et, ma foi, si je sèche, je relancerai le fil.

Bonne soirée à tous.