Bonsoir à tous,

J'ai une variable tableau à 2 dimensions dont le nombre de lignes et de colonnes varient.
J'ai bien en tête que le terme PRESERVE utilisé lors d'un REDIM ne peut se faire que sur la dernière dimension (les colonnes de mon tableau en l'occurrence)

J'ai réalisé le test ci-dessous :
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
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
Sub test()
 
Dim tableau()
Dim i As Integer
Dim j As Integer
Dim Ligne As Integer
Dim Colonne As Integer
 
    Ligne = 10
    Colonne = 15
 
ReDim tableau(Ligne, Colonne)
 
    For i = 1 To Ligne
        For j = 1 To Colonne
            tableau(i, j) = i & " A " & j
        Cells(i, j) = tableau(i, j)
        Next j
 
    Next i
 
    Ligne = 10
    Colonne = 25
 
ReDim Preserve tableau(Ligne, Colonne)
 
    For i = 1 To Ligne
        For j = 16 To Colonne
            tableau(i, j) = i & " B " & j
 
        Next j
    Next i
 
    For i = 1 To Ligne
        For j = 1 To Colonne
            Cells(i + 12, j) = tableau(i, j)
        Next j
    Next i
 
End Sub
Mais si je modifice la valeur de la variable Ligne, j'obtiens évidemment une erreur.

Question : Comment procéder pour que cette variable tableau puisse "évoluer" dans ces deux dimensions tout en conservant les données qu'il contient déjà.

Bonne soirée.
Curt