Problème tableau 2 dimensions dynamique [Résolu]

[Beaudelicius]

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

[bbil]

aide en ligne

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 :
(...)

[Beaudelicius]

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