Discussion :

[aduvillier]

testconcat.xlsm

Bonjour,

Je souhaiterais par macro VBA, concatener le contenu de plusieurs cellules d'une meme ligne en mettant un séparateur pipe entre chaque contenu de cellule puis passer à la ligne suivante et ainsi de suite.

Le nombre de colonnes et de lignes sont variables.

Voir exemple en pièce jointe

J'ai commencé un code (dans le fichier Excel fourni) mais cela ne fonctionne pas

Merci pour votre aide

[Kimy_Ire]

Bonjour aduvillier,

Voici une petite macro qui répond, me semble-t-il, à ton besoin.
Tu fais ce que tu veux avec ta MsgBox en fin de macro.

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
19
20
21
22
Option Explicit
 
Sub concatenation()
Dim oCell As Range
Dim oConc As String
 
With Worksheets("Feuil1").UsedRange
    oConc = ""
    For Each oCell In .Cells
        With oCell
            'Si non ne veut pas prendre en compte les cellules vides, a décommenter
            'If .Value <> "" Then
                oConc = oConc & "|" & .Value
            'End If
        End With
    Next oCell
    oConc = Right(oConc, Len(oConc) - 1)
End With
 
MsgBox oConc
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[aduvillier]

Bonjour Kimy et merci pour ce premier code qui fonctionne plutot bien !

Néanmoins, 2 petites choses :

- Le résultat apparait sur 1 ligne alors que j'aimerais avoir un retour chariot à chaque changement de ligne si c'est possible
- J'aimerai pour chaque ligne un | au début et à la fin

Merci d'avance

[Kimy_Ire]

Et ceci :

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
19
20
21
Option Explicit
 
Sub concatenation()
Dim oRow As Range, oCell As Range
Dim oConc As String
 
With Worksheets("Feuil1").UsedRange
    oConc = ""
    For Each oRow In .Rows
        oConc = oConc & "|"
        For Each oCell In oRow.Cells
            oConc = oConc & oCell.Value & "|"
        Next oCell
        oConc = oConc & vbCrLf
    Next oRow
End With
oConc = Left(oConc, Len(oConc) - 1)
 
MsgBox oConc
 
End Sub

Cordialement,
Kimy

[aduvillier]

Super ! C'est parfait
Merci beaucoup