Excel: fusion de cellules avec fusion du texte

spirit — Wed, 27 May 2009 17:03:04 +0200

Sub fusion()
    Set vzone = Selection
    vtxt = vzone.Range("a1").Value
    For i = 2 To vzone.Rows.Count
        vtxt = vtxt & Chr(10) & vzone.Cells(i, 1).Value
        vzone.Cells(i, 1).ClearContents
    Next
    vzone.Range("a1").Value = vtxt
    With vzone
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    vzone.Range("a1").Value = vzone.Range("a1").Value
End Sub

[concat] [excel] [fusion]

Posteet: fusion

Excel: fusion de cellules avec fusion du texte