VBA - Joindre deux variables tableaux

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

Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche.
Ce document intitulé « VBA - Joindre deux variables tableaux » issu de Comment Ça Marche (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.