Fusionner plusieurs lignes identiques avec des colonnes diff

Bonjour

J'ai un fichier d'un peu moins de 20 000 lignes.

voir le fichier exemple car très difficile à expliquer !

Certaines lignes sont identiques mais les 3 dernières colonnes sont différentes.

Ce que je souhaite c'est fusionner tout sur la même ligne

Suis désolée c'est court mais le fichier vous aidera !

Merci beaucoup à tous

Bonjour,

Un essai :

Crdmt

Bonsoir à tous,

Au vu de la disposition de tes données, ceci devrait suffire 8)

Il faut créer manuellement la feuille 2

Option Explicit
Sub test()
Dim a, b(), i As Long, n As Long
    With Sheets("Feuil1").Range("d3").CurrentRegion
        a = .Value
        ReDim b(1 To (UBound(a, 1) / 3) + 1, 1 To UBound(a, 2))
        n = 1
        b(n, 4) = a(1, 4): b(n, 5) = a(1, 5): b(n, 6) = a(1, 6)
        For i = 2 To UBound(a, 1) Step 3
            n = n + 1
            b(n, 1) = a(i, 1): b(n, 2) = a(i, 2)
            b(n, 3) = a(i, 3): b(n, 4) = a(i, 4)
            b(n, 5) = a(i + 1, 5): b(n, 6) = a(i + 2, 6)
        Next
    End With
    Application.ScreenUpdating = True
    With Sheets("Feuil2").Range("a1")
        .CurrentRegion.Clear
        With .Resize(n, UBound(b, 2))
            .Value = b
            .Font.Name = "calibri"
            .Font.Size = 10
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
            With .Rows(1).Offset(, 3).Resize(, .Columns.Count - 3)
                .BorderAround Weight:=xlThin
                .Font.Bold = True
            End With
            With .Offset(1).Resize(.Rows.Count - 1)
                .BorderAround Weight:=xlThin
                .Borders(xlInsideVertical).Weight = xlThin
            End With
            .Columns.AutoFit
        End With
        .Parent.Activate
    End With
    Application.ScreenUpdating = True
End Sub

klin89

Hello Klin, Bree, les autres,

bon sang, mais c'est bien sur

ai encore cherché autour et alentour

Par contre , Klin, je me demande pourquoi tu fais un step de 3, par ce que il n'est pas certain , amha, que les sociétés soient chaque fois au nombre de 3 ...

Attendons la réponse de l'intéressé

P.

edit ... et le 9-9-2017 pas de news