Fusionner contenu de 2 cellules avec retour chariot

Bonjour à tous,

Je suis nouveau sur le forum, et sollicite votre aide.

J'ai un des cellules avec des informations en retour chariot et je souhaite avoir l'info sur une seule cellule tout en concatenant les infos de la même ligne entre les deux cellules.

J'ai mis un exemple en PJ

Merci d'avance

Bonjour,

Un exemple dans le fichier joint.

Cdlt.

Public Sub DEMO()
Dim tbl, x, y
Dim Arr() As String
Dim v As String
Dim I As Long, _
    J As Long, _
    k As Long

    With ActiveSheet
        .Cells(5).CurrentRegion.Offset(1, 0).ClearContents
        tbl = .Cells(1).CurrentRegion.Value
        ReDim Arr(1 To UBound(tbl) - 1)
        k = 1
        For I = 2 To UBound(tbl, 1)
            x = Split(tbl(I, 1), Chr(10))
            y = Split(tbl(I, 2), Chr(10))
            For J = 0 To UBound(x)
                v = v & x(J) & y(J) & Chr(10)
            Next J
            Arr(k) = Left(v, Len(v) - 1)
            v = ""
            k = k + 1
        Next I
        .Cells(2, 5).Resize(UBound(Arr)) = Application.Transpose(Arr)
    End With
    Erase Arr
End Sub

Bonjour,

Merci Jean-Eric pour ton retour et solution proposée.

Oui, le test était positif et concluant.

Je souhaite s'il vous plait savoir, si je met plusieurs valeur dois-je modifier des paramètres sur le code VBA ou pas?

Car j'ai effectué un copier/coller d'une centaine de ligne et je reçois le message " Argument ou appel de procédure incorrect".

D'avance merci de votre aide.

Re,

Merci de joindre un fichier.

Cdlt.

Oui, un oublie de ma part

Le voila en PJ

D'avance Merci

Re,

A tester en long et en large.

Cdlt.

Many Thanks Jean-Eric.

Chapeau bas