VBA - Comment intialiser un Array() de dimension 1 par fusion de 2 Array () de dimension 1 avec Split Join ?

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:

---

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

---

Pièce jointe 654344

Code:

---

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

---

Pièce jointe 654345

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

Bonjour Philippe,

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

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:

---

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

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

Citation:

---

Envoyé par Philippe Tulliez

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 :king: