bonjour à tous et bonne année, je me remets un peu sur le sujet car je voudrais savoir comment faire si j'ai plus de 20 colonnes à concaténer?
j'ai déjà essayer avec le code ci dessous mais ça me donne "Erreur 13, incompatibilité de type"
code:
For i = LBound(vals) To UBound(vals)
result(i) = vals(i, 1) & " " & vals(i, 2) & " " & vals(i, 3) & " " & vals(i, 4) & " " & vals(i, 5) & " " & vals(i, 6) & " " & vals(i, 7) & " " & vals(i, 8) & " " & vals(i, 9) & " " & vals(i, 10) & " " & vals(i, 11) & " " & vals(i, 12) & " " & vals(i, 13) & " " & vals(i, 14) & " " & vals(i, 15) & " " & vals(i, 16) & " " & vals(i, 17) & " " & vals(i, 18) & " " & vals(i, 19) & " " & vals(i, 20) & " " & vals(i, 21) & " " & vals(i, 22) & " " & vals(i, 23) & " " & vals(i, 24) & " " & vals(i, 25) & " " & vals(i, 26) & " " & vals(i, 27) & " " & vals(i, 28) & " " & vals(i, 29)
Next i
' on transfère le résultat sur la feuille de calcul
' MaColonne déplacée de 2 colonnes vers la droite et redimensionnée
' au nombre de lignes du tableau resultat
' le "transpose" sert à passer le tableau result d'un tableau en ligne
' à un tableau en colonne
.Columns(MaColonne).Offset(0, 29).Resize(UBound(result) - LBound(result) + 1).Value = Application.Transpose(result)
End With
Merci