Discussion :

[curt]

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

[mjpmjp]

bonjour,
tu sépares en 2 tablo 1dim , tu redimensionnes , tu recolles dans tablo 2dim

@+JP

[unparia]

Bonjour
Regarde ce que fait ceci :

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 tableau()
  Dim i As Integer
  Dim j As Integer
  Dim Ligne As Integer
  Dim Colonne As Integer
  Ligne = 2
  Colonne = 4
  ReDim tableau(1 To Ligne, 1 To Colonne)
  For i = 1 To Ligne
    For j = 1 To Colonne
       tableau(i, j) = i & " A " & j
    Next j
  Next i
  tableau = WorksheetFunction.Transpose(tableau)
  MsgBox UBound(tableau, 1) & vbCrLf & UBound(tableau, 2)
  ReDim Preserve tableau(1 To Colonne, 1 To 10)
  tableau = WorksheetFunction.Transpose(tableau)
  For i = 3 To 10
     For j = 1 To 4
       tableau(i, j) = i & " A " & j
     Next
  Next
  Range(Cells(1, 1), Cells(10, 4)).Value = tableau

Puis regarde le propos de la méthode Transpose (rubrique WorksheetFunction.Transpose, méthode de ton aide vba interne)
Il ne te reste plus qu'à analyser ce bout de code , puis de l'adapter à ton gré.

EDIT : je comprends mal le choix ici fait d'ouvrir cette discussion dans la rubrique "Conception".

[curt]

Bonjour à vous deux,

merci pour les solutions. S'agissant d'un tableau existant la fonction TRANSPOSE est parfait.
Du coup, j'ai même vu qu'on pouvait l'utiliser dans la feuille de calcul avec une validation matricielle.

PS : Pour ce qui est de la question dans la rubrique CONCEPTION, j'ai pensé qu'il s'agissait là d'une question de conception et non d'un problème de formule ou de prog.

Bon we
Curt

[unparia]

Index du forum: Conception

Questions relatives à la conception d'un classeur Excel (structure, organisation, protection, sécurisation, ...)