Multi Range

Le 27/01/2014 à 21:51

Bonsoir,

    Range("A2:K2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

Sur ce code, savez comment sélectionner plusieurs Range pour y appliquer cette mise en page

( ex : Range "A1:A5"+Range "A10:A15"+Range "Range A22:A51")

Merci de votre aide.

Le 27/01/2014 à 21:59

bonsoir,

voici

with  Range("A1:A5,A10:A15,A22:A51")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

Le 27/01/2014 à 22:33

Bonsoir H2so4,

Merci, je cherchais un solution avec " Union...."

Comme quoi, il faut rester simple.