Concaténer le contenu de deux colonnes excel

Bonjour,

Il y a quelque temps j'avais demandé comment faire pour concaténer les valeurs d'une colonne d'un tableau excel pour n'en faire plus qu'une ligne.
Plusieurs personnes très aimables m'avaient aidé.

Je voudrai modifier le bout de code donné, pour cette fois concaténer deux colonnes:

ex: A1+ C1 A2+C2 etc.... avec entre la valeur de A1 et C1 un espace et entre C1 et A2 un espace etc ....

Code:

---

1 2 3 4 5 6

Sub vedelec() Dim oDO As New DataObject oDO.SetText Join(Application.Transpose(Cells(1).CurrentRegion.Columns(2))) oDO.PutInClipboard Set oDO = Nothing End Sub

---

voila le code donné pour une colonne (il marche super bien) mais je n'arrive pas à voir quoi modifier pour deux colonnes.

Qui peut m'aider svp?

Cordialement

Elwy

Personne pour m'aider svp?

J'ai fait une fonction mais je suis bloquée avec la quantité de caractères possible dans une cellule excel.
Est ce que quelqu'un peut m'aider à utiliser et modifier le code donné dans le message précédent pour l'adapter a deux colonne svp?

En attendant j'utilise ce code mais il est limité en quantité de caractères dans la cellule M6 (celulle contenant le résultat)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Dometic()   Dim concat As Variant Dim n As Integer   concat = ""   For n = 1 To Range("B65536").End(xlUp).Row concat = concat & " " & Range("B" & n).Value & " " & Range("E" & n).Value Next   Range("M6").Value = concat   End Sub

---

Citation:

---

Envoyé par elwy07

En attendant j'utilise ce code mais il est limité en quantité de caractères dans la cellule M6 (celulle contenant le résultat)

---

cette fonction est très bien

il ne faut pas oublier:
Largeur maximal des colonnes 255 caractères
Nombre maximal de caractères qu'une cellule peut contenir 32 767 caractères

même si tu utiliserais le code donné dans ton premier message et que tu dépasserais
le nombre maximal de caractères cela ne fonctionnerait pas non plus.

J'ai trouvé comment faire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Dometic()   Dim concat As Variant Dim n As Integer Dim oDO As New DataObject   concat = ""   For n = 1 To Range("B65536").End(xlUp).Row concat = concat & " " & Range("B" & n).Value & " " & Range("E" & n).Value Next   oDO.SetText concat oDO.PutInClipboard   'Range("M6").Value = concat   End Sub

---

un mixte des deux code, me permet de concaténer mes deux colonnes et de placer le résultat dans le presse papier, comme sa plus de problème de taille. une fois la macro exécuté, un simple collé dans ma page web (puisque c'est là que dois aller le résultat) suffit.
C'est sur que si on colle le résultat dans une cellule excel le problème revient du fait de la limite de excel.

Voila,

peut être que ce bout de code peut servir à d'autres personnes