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:
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part ReDim Preserve tabsche(x, 11)
Merci de votre aide
Partager