Concaténation de 3 lignes en vba.

[lemarcheurfou]

Bonjour à tous,

Je suis entrain de faire un test pour faire une concaténation de 3 lignes en vba. Mais j'arrive pas à le faire comme je voudrais. En effet le but c'est de faire une concaténation des 3 groupe de lignes qui sont dans ma colonne A et je dois les mettres dans ma colonne B. Je sais pas comment vous l'expliquez je vous joint un fichier excel ça serra plus simple à comprendre.(Dans le fichier j'ai déja commencer à faire la macro)

Par avance, merci pour vos réponse.

Le marcheurfou.

 

[Robert]

Re : Concaténation de 3 lignes en vba.

Bonjour LeMarcheurFou, bonjour le forum,

Peut-être comme ça :

Sub Button1_Click()
Dim s As Object
Dim dl As Long
Dim i As Long
Dim j As Byte
Dim tx As String

Set s = Sheets("Sheet1")
dl = s.Cells(Application.Rows.Count, 1).End(xlUp).Row
For i = 2 To dl
    tx = ""
    For j = 0 To 2
        tx = IIf(tx = "", s.Cells(i, 1).Offset(j, 0).Value, tx & s.Cells(i, 1).Offset(j, 0).Value)
    Next j
    s.Cells(i, 2).Value = tx
    s.Cells(i + 1, 2).Value = tx
    s.Cells(i + 2, 2).Value = tx
    i = i + 2
Next i
End Sub

 

[lemarcheurfou]

Re : Concaténation de 3 lignes en vba.

Ah Super ça marche un grand merci à toi Robert.