XL 2010 Concaténation 2 Array

[cathodique]

Bonjour,

M'initiant aux variables tableaux, j'ai pris un bout de code sur le site de Boisgontier ci-dessous.

Sub ConcatTableau()
    Cells.ClearContents
    a = Array(1, 2, 3, 4)
    b = Array(5, 6, 7, 8, 9)
    c = Split(Join(a, ",") & "," & Join(b, ","), ",")
    [A1].Resize(UBound(c) + 1) = Application.Transpose(c) 'chiffres alignés à droite
 '------------------------------------------------------------------------------------------------------------------------------
    [A12].Resize(1, UBound(c) + 1) = c 'chiffres alignés à gauche avec triangle en haut gauche de la cellule
    [A13].Resize(1, UBound(c) + 1) = Application.Transpose(Application.Transpose(c)) 'chiffres alignés à droite
'------------------------------------------------------------------------------------------------------------------------------
End Sub

j'ai rajouté les 2 dernières lignes de code pour transférer le tableau c sur la feuille. Je n'ai pas compris et pas trouvé d'explications. Pour l'une les données sont numériques comme initialement et pour l'autre les données sont considérées comme du texte.

En vous remerciant par avances.

 

[Dranreb]

Bonjour.
Join renvoie un String, Split un tableau de String et WorksheetFunction.Transpose un tableau de Variant.

 

[cathodique]

Merci beaucoup Dranreb, c'est un peu plus clair pour ma petite tête.

Bonne journée.