XL 2010 Concaténer lignes en VBA

mic6259 · 13 Mai 2021

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 · 13 Mai 2021

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

VB:

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

sylvanu · 13 Mai 2021

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

VB:

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 · 13 Mai 2021

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

soan · 13 Mai 2021

Bonjour mic6259, sylvanu,

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

VB:

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 · 13 Mai 2021

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 · 13 Mai 2021

@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.

VB:

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 · 13 Mai 2021

Merci beaucoup, çà marche

XL 2010 Concaténer lignes en VBA

mic6259

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

mic6259

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Pièces jointes

mic6259

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Pièces jointes

mic6259

XLDnaute Occasionnel

Discussions similaires