Variable tableau à 2 dimensions "variables"

Version imprimable

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:

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

30/01/2018, 18h24
mjpmjp

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

@+JP

Bonjour
Regarde ce que fait ceci :

Code:

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".

02/02/2018, 16h08
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
02/02/2018, 20h43
unparia

Citation:

Index du forum: Conception

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

;)