Fusion de colonne selon valeur dans une autre colonne

[WanderingIA]

Bonjour,

Le titre de mon sujet n'étant pas explicite, je me permet de vous joindre un tableau exemple.

Le but est de fusionner les lignes des colonnes B à H pour lesquelles les cellules sont de même valeurs dans colonne A, et de garder leur contenu.
Puis de fusionner les cellule de même valeur dans la colonne A et I


Si jamais quelqu'un à une idée je suis preneur !

Merci d'avance.

 

[bbb38]

Re : Fusion de colonne selon valeur dans une autre colonne

Bonjour WanderingIA, le forum,
Une idée très simple. Effectuer des sous-totaux.
Cordialement,
Bernard

 

[PrinceCorwin]

Re : Fusion de colonne selon valeur dans une autre colonne

B'jour,

Ceci devrait bien fonctionner

Sub Macro1()
codeclient = Range("A2").Value
i = 3
Do While i <= [A65000].End(xlUp).Row
    lignedebut = i - 1
    lignefin = i - 1
    Do While codeclient = Range("A" & i)
        lignefin = lignefin + 1
        i = i + 1
    Loop
    codeclient = Range("A" & i).Value
    If lignedebut <> lignefin Then
    justDOit = False
    Application.DisplayAlerts = False
    For col = 1 To 9
        Select Case col
            Case 1
                Range(Cells(lignedebut, col), Cells(lignefin, col)).Select
                Selection.Merge
            Case 2 To 8
                If Not justDOit Then
                sauveTexte = ""
                For coll = 2 To 8
                    For lig = lignedebut To lignefin
                        sauveTexte = sauveTexte & Cells(lig, coll) & vbCrLf
                    Next lig
                    Range(Cells(lignedebut, coll), Cells(lignefin, coll)).Select
                    Selection.Merge
                    Selection.Value = sauveTexte
                        With Selection
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlTop
                            .WrapText = True
                            .Orientation = 0
                            .AddIndent = False
                            .IndentLevel = 0
                            .ShrinkToFit = False
                            .ReadingOrder = xlContext
                            .MergeCells = True
                        End With
                    sauveTexte = ""
                    justDOit = True
                Next coll
                End If
            Case 9
                Range(Cells(lignedebut, col), Cells(lignefin, col)).Select
                Selection.Merge

        End Select
    Next col
    i = i + 1
    Else
        i = i + 1
    End If
Loop
End Sub

Bonne soirée

 

[WanderingIA]

Re : Fusion de colonne selon valeur dans une autre colonne

Merci beaucoup pour la macro, c'est exactement l'effet recherché.
J'ai encore beaucoup de chemin à parcourir avant d'arriver à ce niveau !

L'idée du sous-total est intéressante, mais j'ai besoin d'une ligne par fournisseur.

Bonne journée.