Microsoft 365 Fusion de cellules

[LLP]

Bonjour,

Je souhaiterais connaitre la formule qui me permettrait de fusionner les lignes des colonnes B et C si la référence en colonne A est identique.
Au mieux que ça donne le résultat de D2 a minima le résultat en E2.

Merci pour votre aide.

 

[Phil69970]

Bonjour @LLP

Avec formule comme tu l'as demandé mais avec quelques manipulations :

D'abord ta liste doit être trié sur la colonne A si c'est pas déjà fait
1) En D2 tu copies cette formule à tirer vers le bas ==> =SI(A2=A1;D1&CAR(10)&B2&" "&C2;B2&" "&C2)
2) Tu vas à la dernière ligne de ta série en D10 dans ton exemple ==> Accueil ==> Renvoyer à la ligne automatiquement
3) Tu as ta liste en D10 maintenant on supprime les formules et on les remplacent par les valeurs D10 ==> Copier ==> Coller les valeurs
4) Et voila tu as bien ta liste comme demandé

Merci de ton retour

 

[merinos-BernardEtang]

Bonjour @LLP ,

De ma part tu aurras généralement une réponse en powerquery...
D'autres sont des spécialiste des formules matricielles

 

[LLP]

Bonjour @LLP

Avec formule comme tu l'as demandé mais avec quelques manipulations :

D'abord ta liste doit être trié sur la colonne A si c'est pas déjà fait
1) En D2 tu copies cette formule à tirer vers le bas ==> =SI(A2=A1;D1&CAR(10)&B2&" "&C2;B2&" "&C2)
2) Tu vas à la dernière ligne de ta série en D10 dans ton exemple ==> Accueil ==> Renvoyer à la ligne automatiquement
3) Tu as ta liste en D10 maintenant on supprime les formules et on les remplacent par les valeurs D10 ==> Copier ==> Coller les valeurs
4) Et voila tu as bien ta liste comme demandé

Merci de ton retour

Parfait merci ça fonctionne

 

[Nain porte quoi]

Hello,

avec une zolie morfule (ou fort mule) ! Résultat en feuille 2 à cause des hauteurs de lignes

=LET(
    Liste_Ref;UNIQUE(Feuil1!A2:A1000);
    Liste_Nettoyés;FILTRE(Liste_Ref; Liste_Ref<>"");
    MAP(Liste_Nettoyés;
        LAMBDA(Ref;
            JOINDRE.TEXTE(CAR(10);VRAI;
                FILTRE(Feuil1!B2:B1000&" "&Feuil1!C2:C1000;Feuil1!A2:A1000=Ref)
            )
        )
    )
)

 

[job75]

Bonjour à tous,

Un p'tit coup de VBA ça ne mange pas de pain :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig&, i&, n&, j&, x$
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
Application.DisplayAlerts = False
Columns(4).UnMerge 'défusionne
Columns("A:D").Sort Columns(1), xlAscending, Header:=xlYes 'tri
With [A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub
    With .Columns(4).Offset(1).Resize(.Rows.Count - 1)
        .Formula = "=IF(A2<>A1,MAX(D$1:D1)+1,D1)"
        .Value = .Value
    End With
    lig = 2
    For i = 1 To Application.Max(.Columns(4))
        n = Application.CountIf(.Columns(4), i)
        .Cells(lig, 4).Resize(n).Merge 'fusionne
        x = ""
        For j = 0 To n - 1
            x = x & vbLf & .Cells(lig + j, 2) & " " & .Cells(lig + j, 3)
        Next j
        .Cells(lig, 4) = Mid(x, 2)
        lig = lig + n
    Next i
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Edit : une macro SelectionChange ne permet pas le copier-coller.

A+