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

[Philippe Tulliez]

Bonjour,
Enlevez les parenthèses des variables déclarées comme Dim arr1 As Variant, arr2 As Variant, arr3 As Variant

[Nain porte koi]

Bonjour Philippe,

tu pourrais nous donner l'explication de cette subtilité steuplé ?
Merci

[Philippe Tulliez]

Bonjour Jièl,
En VBA, il est important de distinguer entre déclarer une variable comme Variant simple et déclarer une variable comme tableau de Variant.

Déclaration avec Parenthèses
Quand tu déclares une variable avec des parenthèses comme Dim arr1() As Variant , tu indiques explicitement que arr1 est un tableau de Variant. Un tableau nécessite généralement d'être dimensionné (soit avec ReDim, soit initialisé directement avec une fonction qui retourne un tableau comme Array()).

Déclaration sans Parenthèses
En revanche, Dim arr1 As Variant déclare arr1 comme une variable de type Variant simple, qui peut contenir n'importe quel type de données, y compris un tableau. Quand tu utilises arr1 = Array("a1", "b1"), arr1 devient automatiquement un tableau car la fonction Array retourne un tableau.

Pourquoi le Changement de Déclaration Résout-il l'Erreur ?

Dans le code initial

Code :

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

1
2
3
4
Dim arr1() As Variant, arr2() As Variant, arr3() As Variant
arr1 = Array("a1", "b1")
arr2 = Array("a2", "b2")
arr3 = Split(Join(arr1, ",") & "," & Join(arr2, ","), ",")

Le problème survient avec arr3. On a déclaré arr3() comme un tableau, mais on essaie ensuite de l'affecter avec le résultat de la fonction Split, qui retourne également un tableau. Normalement, cela devrait fonctionner, mais VBA peut parfois être capricieux avec les types de données complexes comme les tableaux imbriqués ou manipulés via des fonctions.

En déclarant arr3 comme Variant simple, tu laisses VBA gérer le type de données dynamiquement. Le fait que cela fonctionne sans les parenthèses suggère que VBA a mieux géré la conversion implicite des types sans préconception du type spécifique.

Bonne Pratique
Dans la situation, où tu manipules des tableaux dynamiques et des données qui peuvent changer de type (par exemple, de simple valeur à tableau), il est souvent plus sûr de déclarer ces variables comme Variant sans préciser qu'il s'agit de tableaux. Cela offre plus de flexibilité et laisse VBA gérer le typage dynamiquement.
Cela permet également lorsque j'utilise une fonction générique qui doit me renvoyer un tableau ou rien de vérifier au retour avec la fonction IsArray si c'est un tableau ou pas

[Nain porte koi]

Merci beaucoup pour cette belle explication bien détaillée.

[informer]

Bonjour,
Enlevez les parenthèses des variables déclarées comme Dim arr1 As Variant, arr2 As Variant, arr3 As Variant

Merci Philippe pour la solution qui fonctionne parfaitement et ton explication qui permet de s'endormir plus intelligent comme toujours