Macro pour regrouper plusieurs lignes

Bonjour,

Je recherche une macro qui regroupe plusieurs lignes en une seule.

Ci-joint fichier pour exemple.

Je vous remercie d'avance pour une éventuelle réponse.

Cordialement.

Feever

Bonhour,

Un début de réponse à adapter.

Cdlt.

Public Sub DEMO()
Dim i As Byte, sText As String
    For i = 3 To 5
        sText = sText & " " & Cells(i, 1).Value
    Next i
    sText = Replace(sText, ".", ". ")
    sText = Replace(sText, ",", ", ")
    sText = Trim(sText)
    With Cells(9, 1)
        .Value = sText
        .InsertIndent 1
        .WrapText = True
    End With
End Sub

Bonjour,

Tu concatènes le contenu des 3 cellules en une seule. Rien de plus simple !

Cordialement.

Bonjour à tous

Bonjour Jean Eric, MFerrand

Je pense que la réponse des solutions sera:" Oui mais dés fois j'ai 4 ou 5 lignes qui s’empilent"

Je vous remercie pour vos réponses, mais j'ai des chapitres avec un nombre de lignes variable (de 2 à 5) sur un fichier qui comporte 3000 lignes.

Merci

M12 !

Ton modèle ne montre pas de chapitres, ni comment on les distingue...

Je t'envoie le fichier. Le regroupement se fait sur les lignes blanches.

Merci

Re,

Une méthode simple :

Sub Compacter()
    Dim n&, i&
    With Worksheets("Feuil2")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        Application.ScreenUpdating = False
        For i = n To 2 Step -1
            If .Cells(i, 1) = "" Then
                If .Cells(i - 1, 1) = "" Then
                    .Cells(i - 1, 2) = .Cells(i - 1, 2) & " " & .Cells(i, 2)
                    .Rows(i).Delete
                End If
            End If
        Next i
    End With
End Sub

Cordialement.

Je te remercie, c'est "pile-poil".

J'étais partie sur ta formule CONCATENER, mais là, c'est vraiment mieux !

Cordialement

Feever