Fusionner cellule

Bonjour,

Je souhaite que suivant mon exemple , que la première colonne (client) est la même fusion que la colonne (commande)

Y a t 'il une méthode rapide car je réalise du reproduction de forme mais c'est long , très long ...., trop long

Merci d'avance pour votre aide

Bonsoir jtsfab08,

Vois ceci :

Option Explicit
Sub test()
Dim dl As Long, rng As Range
    With Sheets("Feuil1")
        dl = .Cells(.Rows.Count, "C").End(xlUp).Row
        For Each rng In .Range("a6", .Range("a" & dl)).SpecialCells(xlCellTypeBlanks).Areas
            With rng.Offset(-1).Resize(rng.Cells.Count + 1)
                .MergeCells = True
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
        Next
    End With
End Sub

klin89

Bonjour

Les cellules fusionnées sont une plaie interdisant entre autres : tri, filtres analyse par TCD...

Une MFC rend sensiblement la même chose sans ces inconvénients...

La mise sous forme de tableau autotomisera la MFC sur les nouvelles lignes

Re jtsfab08,

C'est mieux ainsi

Option Explicit
Sub test()
Dim r As Range
For Each r In Range("b6", Range("b" & Rows.Count).End(xlUp))
    If r.Address = r.MergeArea.Cells(1).Address Then
        With r.MergeArea
            With .Offset(, -1).Resize(.Rows.Count)
                .Merge
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
        End With
    End If
Next
End Sub

klin89

Merci a tous les deux pour vos réponses , je vais tester cela