Microsoft 365 regroupement texte sur une seule ligne

[Carlot]

Bonjour,

sur excel je souhaiterais regrouper des lignes qui en vertical, les textes peuvent sur 2 voir 3 ligne différentes..

merci pour votre aide.

 

[vgendron]

Bonjour

Je n'ai même pas ouvert ton fichier.
Ta phrase ne veut rien dire;.
des lignes qui en vertical...
les textes peuvent sur 2 voir(e) 3 ligne différentes...

il faudrait au moins faire l'effort de t'exprimer dans un français intelligible

 

[Lolote83]

Bonjour @Carlot, @vgendron

Moi, j'ai ouvert ton fichier (fichier TXT)
Un autre effort va t'être demandé, c'est de faire un petit fichier XL avec des explications claires et le plus serait un exemple du résultat souhaité.

@+ Lolote83

 

[sylvanu]

Bonjour Carlot, Vgendron, Lolote,
"Just for the fun", et un peu (beaucoup ) au hasard, un essai en PJ avec cette macro :

Sub Worksheet_Activate()
    Dim Tablo, T, DL%, L%, Lt%
    Application.ScreenUpdating = False
    DL = Sheets("Feuil1").[B10000].End(xlUp).Row
    Tablo = Sheets("Feuil1").Range("A2:D" & DL)
    ReDim T(1 To UBound(Tablo), 1 To 3)
    [A2:C10000].ClearContents: Lt = 0
    For L = 1 To UBound(Tablo)
        If Tablo(L, 1) <> "" Then
            Lt = Lt + 1
            T(Lt, 1) = Tablo(L, 1): T(Lt, 2) = Tablo(L, 2)
            T(Lt, 3) = Format(Tablo(L, 4), "#0.00")
        Else
            T(Lt, 2) = T(Lt, 2) & " " & Tablo(L, 2)
        End If
    Next L
    [A2].Resize(UBound(T, 1), 3) = T
    Columns.AutoFit
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la Feuil2.

 

[Cousinhub]

Bonsoir,
Si l'utilisation de Power Query ne te rebute pas, voici ce que j'obtiens à partir de ton fichier.
Je n'ai pas pris en compte la colonne N° Pièce car elle indiquait une date, mais il est tout à fait possible de l'inclure.

Tu me dis si ça peut le faire.
Bonne soirée