Regrouper / fusionner plusieurs ligne SI identique

Bonsoir,

J'aimerai que mes lignes se fusionne quand elles ont une cellule commune ci joint un fichier test pour que vous puissiez voir ...

à bientôt

Salut Furiousxsi

On peut le faire avec Power Query est-ce une solution qui pourrait vous intéresser

A+

Bonjour,

Hello, Bruno

Oui, mais, non...

Hello,

En plus ce serait hyper simple. Dépivoter toutes les colonnes sauf les deux premières et après un TCD :)

Sinon juste un TCD ne suffirait pas ?

@+

Edit : un exemple

Salut cousinhub

Je ne me fie jamais à la version Excel indiquée c'est pour çà

Salut et merci pour lui Baroute78

Bonne soirée

Bonsoir à tous,

essaie ceci :

Sub test()
    Dim a, e, s, i As Long, ii as byte, n As Long, dico As Object
    Application.ScreenUpdating = False
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    With Sheets(1)
        a = .Cells(1).CurrentRegion
        For i = 2 To UBound(a, 1)
            If Not dico.exists(a(i, 1)) Then
                Set dico(a(i, 1)) = CreateObject("Scripting.Dictionary")
            End If
            If Not dico(a(i, 1)).exists(a(i, 2)) Then
                ReDim w(1 To 8): w(1) = a(i, 1): w(2) = a(i, 2)
            Else
                w = dico(a(i, 1))(a(i, 2))
            End If
            For ii = 3 To UBound(a, 2)
                If Not IsEmpty(a(i, ii)) Then
                    w(ii) = a(i, ii)
                End If
            Next
            dico(a(i, 1))(a(i, 2)) = w
        Next
    End With
    With Sheets.Add
        n = 2
        .Cells(1).Resize(, UBound(a, 2)) = Application.Index(a, 1, 0)
        For Each e In dico
            For Each s In dico(e)
                .Cells(n, 1).Resize(, UBound(dico(e)(s))) = dico(e)(s)
                n = n + 1
            Next
         Next
         With .Cells(1).CurrentRegion
            .Font.Name = "Calibri"
            .Font.Size = 10
            .Rows(1).BorderAround Weight:=2
            .Rows(1).Interior.ColorIndex = 43
            .VerticalAlignment = xlCenter
            .BorderAround Weight:=2
            .Borders(xlInsideVertical).Weight = 2
            .Columns.AutoFit
         End With
    End With
    Set dico = Nothing
    Application.ScreenUpdating = True
End Sub

klin89

Salut BrunoM45

Oui ca peut m'intéresser mais je ne sais pas ce que c'est.

;)

J'ai bien un Excel 2007.

Qu'est ce qu'un TCD?

Je vais en attendant vos réponses essayer la formule de Klin89 ...

Merci déjà pour toutes vos réponses

TCD Tableau Croisé Dynamique ... j'ai trouvé

Hello,

Du coup le TCD ne répond pas à ce que tu recherches ?

@+

Je sais pas trop en tout cas la Macro fonctionne super bien.

Le TCD je ne connais pas ;)

C'était dans ma réponse un peu au dessus.

@+

Merci Baroute78,

J'ai bien trouvé ton tableau, c'est pas mal ... tu as mis longtemps à le mettre en œuvre?

Ca ressemble à un gros système de Tri

Hello,

Ca a mis 10 secondes à peu de choses près.

En fait, tu sélectionnes la plage que tu veux analyser. Ici c’était ton tableau. Après tu vas dans le ruban puis « Insertion », « Tableau croisé dynamique », et après tu mets en lignes tes ligues et équipes et après en valeurs tes différentes valeurs qui se mettront automatiquement en colonnes :)

N’hésite pas si besoin :)

@+

Je vais tester et si j’y arrive je ferais un retour sur le forum.

J'ai réussi mais ça m'a prit plus de temps ;) Car au début je n'avais que des 1 dans le tableau ;)

Hello,

Yes il faut faire une somme et pas regrouper par nombre :)

@+