Discussion :

[elwy07]

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 :

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

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

[elwy07]

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 :

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

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

[gnain]

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.

[elwy07]

J'ai trouvé comment faire

Code :

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

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