Bonjour,

Je cherche à redimmensionner un array dans mon code. L'array s'appelle tabl.
Dans le bout de code suivant, lorsque j'omet le
Preserve
, je perds mes données déjà stockées dans le tableau.
Mais lorsque je rajoute le
Preserve
après
Redim
, ca compile plus...

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
24
25
26
27
28
29
30
31
32
    'défini le tableau qui stocke les titres encore portés
    maxTabl = 1
    ReDim tabl(1 To maxTabl, 1 To 8) As Variant
    'calcule le max de ligne dans la feuille Bonds du classeur source
    maxLigneBond = Workbooks(nomFichierImport).Worksheets(wsBond).Range("A" & Rows.Count).End(xlUp).Row
    For i = 5 To maxLigneBond
        For j = 1 To maxTabl
 
            If tabl(j, 1) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("B" & i) Then
                tabl(j, 8) = tabl(j, 8) + Workbooks(nomFichierImport).Worksheets(wsBond).Range("H" & i)
                GoTo suite
            Else
 
                If j = maxTabl Then
 
                    maxTabl = maxTabl + 1
                    ReDim Preserve tabl(1 To maxTabl, 1 To 8)
                    tabl(maxTabl, 1) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("B" & i)
                    tabl(maxTabl, 2) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("C" & i)
                    tabl(maxTabl, 3) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("D" & i)
                    tabl(maxTabl, 4) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("E" & i)
                    tabl(maxTabl, 5) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("Z" & i)
                    tabl(maxTabl, 6) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("AA" & i)
                    tabl(maxTabl, 7) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("AB" & i)
                    tabl(maxTabl, 8) = Workbooks(nomFichierImport).Worksheets(wsBond).Range("H" & i)
                End If
 
            End If
 
        Next
suite:
    Next
Quelqu'un voit le pb?

Merci d'avance!