0
Merci

Quelques mots de remerciements seront grandement appréciés.

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
0
Merci

Quelques mots de remerciements seront grandement appréciés.

Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche
et directeur délégué au développement numérique du groupe Figaro.

Ce document intitulé «  VBA - Joindre deux variables tableaux  » issu de CommentCaMarche (https://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.

0 Commentaire