Discussion :

[informer]

Bonjour,

J'ai testé plusieurs méthode pour fusionner 2 objets Array mais avec un succès mitigé car l'instruction qui fonctionne génère un Array à 2 dimensions alors que l'objectif est un array à 1 dimension!

La solution d'une boucle est hors champ de cette question car très bien documentée sur différents sites !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    '----------------------------------------------------------------------------------------------------
    ' erreur 13 incompatibilité de type
    '----------------------------------------------------------------------------------------------------
    Dim arr1() As Variant, arr2() As Variant, arr3() As Variant
    
    arr1 = Array("a1", "b1"): arr2 = Array("a2", "b2")     
    arr3 = Split(Join(arr1, ",") & "," & Join(arr2, ","), ",")   ' ---> NOk :  erreur 13 incompatibilité de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    '----------------------------------------------------------------------------------------------------
    ' Intialisation d'un Array à 2 dimensions alors que l'objectif est de 1 dimension
    '----------------------------------------------------------------------------------------------------
    Dim arr1() As Variant, arr2() As Variant, arr3() As Variant
    
    arr1 = Array("a1", "b1"): arr2 = Array("a2", "b2")     
    arr3 = arr3 = Array(Split(Join(arr1, ",") & "," & Join(arr2, ","), ","))   ' ---> Ok mais arr3 à 2 dimensions