VBA - Joindre deux variables tableaux

Novembre 2017



Concatène deux variables tableaux à 1 dimension en une seule variable tableau.


Option Explicit

Sub Joindre()
Dim Aray_1() As Variant, Aray_2() As Variant
Dim Result() As Variant

    Aray_1 = Array(1, 2, 3, 4, 5, #11/24/2017#, "azerty")
    Aray_2 = Array("A", "B", "C", 18, "End")
    Result = Concat_Array(Aray_1, Aray_2)
    Debug.Print "Avec l'Array 1 : " & Join(Aray_1, ", ")
    Debug.Print "Et l'Array 2 : " & Join(Aray_2, ", ")
    Debug.Print "Le résultat est l'Array 3 : " & Join(Result, ", ")
End Sub

Function Concat_Array(A1() As Variant, A2() As Variant) As Variant()
Dim TmpA1() As Variant, N As Long, i As Long

    N = UBound(A1) + 1
    TmpA1 = A1
    ReDim Preserve TmpA1(N + UBound(A2))
    For i = N To UBound(TmpA1)
        TmpA1(i) = A2(i - N)
    Next
    Concat_Array = TmpA1
End Function


Résultat :
Avec l'Array 1 : 1, 2, 3, 4, 5, 24/11/2017, azerty
Et l'Array 2 : A, B, C, 18, End
Le résultat est l'Array 3 : 1, 2, 3, 4, 5, 24/11/2017, azerty, A, B, C, 18, End

Publié par pijaku.
Ce document intitulé «  VBA - Joindre deux variables tableaux  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.