Concaténation Matricielle VBA

Version imprimable

17/05/2013, 11h03
Wini29

Concaténation Matricielle VBA

Bonjour,

J'aimerais réaliser la concaténation de deux Matrices via VBA:

Soient A(1 to N, 1 to M) et B (1 to P, 1 To M), deux tableaux de données de type Variant j'aimerais avoir un tableau de données C(1 to N+P, 1 to M) Contant A puis B.
Il s'agit en fait juste de pouvoir ajouter des lignes ou colonnes à un tableau sans devoir effectuer systématiquement deux boucles sur chacun des tableaux.

Existe-t-il des moyens plus "directs" pour cela?
Merci de vos réponses

Bonjour,

Vous pouvez augmenter la taille d'une matrice avec le mot Preserve et uniquement sur sa dernière dimension. Vous ne pourrez pas réaliser ce que vous proposer car vous augmentez la première dimension de la matrice B si vous l'initialisez en même temps que la A.

Le code ci-dessous traite l'exemple dans la diapo

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
Option Explicit
 
Private MatriceA() As Variant
Private MatriceB() As Variant
 
Sub ChargerLesMatrices()
 
Dim I As Long
Dim J As Long
 
Dim AireACopier As Range
 
    'MsgBox (ActiveSheet.Range("AireMatriceA").Rows.Count)
 
    Set AireACopier = ActiveSheet.Range("AireMatriceA")
    ReDim MatriceA(AireACopier.Rows.Count - 1, AireACopier.Columns.Count - 1)
 
    For I = 0 To AireACopier.Rows.Count - 1
       For J = 0 To ActiveSheet.Range("AireMatriceA").Columns.Count - 1
             MatriceA(I, J) = Cells(AireACopier.Rows(I + 1).Row, AireACopier.Columns(J + 1).Column).Value
       Next J
    Next I
    ' MsgBox (MatriceA(UBound(MatriceA, 1), UBound(MatriceA, 2)))
 
     ReDim MatriceB(AireACopier.Rows.Count - 1, AireACopier.Columns.Count - 1)
     MatriceB = MatriceA
     MsgBox (MatriceB(UBound(MatriceB, 1), UBound(MatriceB, 2)))
 
 
    ' On ajoute 3 colonnes
    ReDim Preserve MatriceB(UBound(MatriceB, 1), UBound(MatriceB, 2) + 3)
 
    MatriceB = Range(AireACopier, AireACopier.Offset(0, 3)).Value
    MsgBox (MatriceB(UBound(MatriceB, 1), UBound(MatriceB, 2)))
 
    Set AireACopier = Nothing
 
End Sub

http://www.developpez.net/forums/att...1&d=1368791615

Cordialement.

17/05/2013, 14h36
Wini29
Bonjour, et merci de ta réponse,

En fait, je voulais éviter d'avoir recours à l'affichage et utiliser plusieurs concaténations successives pour ajouter progressivement des informations.
Je pense que je vais revoir mon fonctionnement et: Soit passer par l'affichage des données, soit par deux boucles successives du type:
Code:

1 2 3 4 5 6 7 8 9 10 11 For i=1 to Ubound(A,1) For j=1 to Ubound(A,2) C(i,J)=A(i,J) next next ' Puis For i=1 to Ubound(B,1) For j=1 to Ubound(B,2) C(i+Ubound(A,1),J+Ubound(A),1)=A(i,J) next next

Ci-joint une fonction personnalisée qui donne comme résultat un tableau assemblant les données des 2 tableaux en paramètre.

PS: Les 2 tableaux doivent avoir le même nombre de colonnes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function AssTab(ByVal A, ByVal B)
Dim mA As Integer, mB As Integer, j As Integer
Dim nA As Long, nB As Long, i As Long
Dim C
 
If IsArray(A) And IsArray(B) Then
    nA = UBound(A, 1)
    mA = UBound(A, 2)
    nB = UBound(B, 1)
    mB = UBound(B, 2)
    If mA = mB Then
        C = Application.Transpose(A)
        ReDim Preserve C(1 To mA, 1 To nA + nB)
        For i = 1 To nB
            For j = 1 To mA
                C(j, i + nA) = B(i, j)
            Next j
        Next i
        AssTab = Application.Transpose(C)
    End If
End If
End Function

Petit test de la fonction

Code:

1
2
3
4
5
6
7
Sub Test()
Dim A, B
 
A = [A1:C3]
B = [F1:H7]
[A11:C20] = AssTab(A, B)
End Sub