XL 2010 Concaténer lignes en VBA

[mic6259]

Bonjour
J'aimerais, selon le fichier joint, concaténer la ligne 2 en VBA dans la cellule F2 et conserver les cellules concaténées.
Puis créer un bouton
Ensuite faire la même chose pour la ligne 3 que je vais ajouter après.
J'ai cherché, en vain dans internet, je n'ai que concaténer par colonnes.
Merci beaucoup

 

[sylvanu]

Bonjour Mic,
Pas sur d'avoir tout compris. cependant un essai avec :

Sub Concatene()
    Dim DL%, L%, C%, N
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    For L = 2 To DL
        N = ""
        For C = 1 To 5
            N = N & Cells(L, C)
        Next C
        Cells(L, "F") = N
    Next L
End Sub

 

[mic6259]

Bonjour Sylvanu
Super c'est exactement çà.
Merci beaucoup
Cordialement

 

[soan]

Bonjour mic6259, sylvanu,

ton fichier en retour. 🙂 (j'ai ajouté un complément)

Sub Essai()
  Dim chn$, n&, i&, j As Byte
  n = Cells(Rows.Count, 1).End(3).Row
  Application.ScreenUpdating = 0
  For i = 2 To n
    chn = ""
    With Cells(i, 1)
      For j = 0 To 4
        chn = chn & .Offset(, j) & " ; "
      Next j
      .Offset(, 5) = Left$(chn, Len(chn) - 3)
    End With
  Next i
  ActiveCell.Select
End Sub

soan

 

[mic6259]

Bonjour Soan
J'ai essayé ton fichier et j'ai enlevé le ; mais j'aimerai qu'il n'y ai pas d'espace dans le résultat.
Est-ce possible
Cordialement

 

[soan]

@mic6259

j'ai dû m'absenter longtemps, et j'viens d'lire ton post #5.

ce que tu demandes est fait dans le fichier joint. 🙂​

Sub Essai()
  Dim chn$, n&, i&, j As Byte
  n = Cells(Rows.Count, 1).End(3).Row
  Application.ScreenUpdating = 0
  For i = 2 To n
    chn = ""
    With Cells(i, 1)
      For j = 0 To 4
        chn = chn & .Offset(, j)
      Next j
      .Offset(, 5) = chn
    End With
  Next i
  ActiveCell.Select
End Sub

soan

 

[mic6259]

Merci beaucoup, çà marche