Salut à tous,

Depuis quelques temps j'ai un problème assez em****ant avec les tableaux dynamiques et notamment avec le fameux ReDim.

Voilà la version courte du code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim Tab()
nbl = 0
For i = 2 To max
    nbl = nbl + 1
    ReDim Preserve Tab(nbl, 2)
    Tab(nbl, 1) = ActiveSheet.Cells(i, 1).Value
    Tab(nbl, 2) = ActiveSheet.Cells(i, 3).Value
 
    If ... Then
        nbl = nbl + 1
        ReDim Preserve Tab(nbl, 6)
        Tab(nbl, 1) = ActiveSheet.Cells(i, 1).Value
        Tab(nbl, 2) = ActiveSheet.Cells(i, 4).Value
    End If
 
    If ... Then
        nbl = nbl + 1
        ReDim Preserve Tab(nbl, 6)
        Tab(nbl, 1) = ActiveSheet.Cells(i, 1).Value
        Tab(nbl, 2) = ActiveSheet.Cells(i, 5).Value
    End If
Next i
Le truc c'est que lors du premier passage (qui ne passe pas dans les 2 if), ca va, mais dès qu'il reviens sur ReDim, ça m'affiche un magnifique "Subscript out of range".

Si quelqu'un voit le d'où provient le problème, je suis preneur.
Merci d'avance