Problème tableau 2 dimensions dynamique

Bonjour forum

Je désire créer un tableau a deux dimention, don le nombre de valeur de la première variable est inconnue et le nombre de la 2e est 11, voici mon code:

Code:

---

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

last = .Range("Q65536").End(xlUp).Row x = 0 For i = 3 To last If i = 3 Or Cells(i, 17) <> Cells(i - 1, 17) Then x = x + 1 ReDim Preserve tabsche(x, 11) For j = 1 To 11 tabsche(x, j) = Cells(i, 16 + j) Next j End If Next i End With

---

Une erreur survient lorsque x prend la valeur 2, donc au moment ou je désire entré une seconde ligne dans mon tableau l'erreur : "L'indice n'appartient pas à la selection, sur la ligne de code:

Code:

---

ReDim Preserve tabsche(x, 11)

---

Merci de votre aide

aide en ligne :f1:

Citation:

---

ReDim, instruction
(...)
Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau. Vous ne pouvez en aucun cas modifier le nombre de dimensions. Par exemple, si votre tableau n'a qu'une dimension, vous pouvez la modifier puisqu'il s'agit de la dernière et seule dimension. Toutefois, si le tableau compte plusieurs dimensions, seule la taille de la dernière dimension est modifiable si vous souhaitez préserver le contenu du tableau. L'exemple suivant montre comment augmenter la taille de la dernière dimension d'un tableau dynamique sans effacer les données qu'il contient :
(...)

---

Ok Merci,

J'ai donc monté mon tableau en colonne et utiliser la fonction transpose:

Code:

---

Range(cells(1,1),cells(ubound(tabsche,2),11)) = application.workcheetsFunction.transpose(tabsche)

---

Merci