Écrir verticallement

[Jocelyn]

Boujour! à vous tous.

Est-ce que quelqu'un connaitrait la formule magique en VBA
pour automatissé un text vertical ?

Sheets(ecrir).Select
With Selection.Interior
.ColorIndex = 19
End With
With Selection
.Font.Bold = True
'.VerticalAlignment = 90
.Borders.LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlDouble
End With

'.VerticalAlignment = 90 N'est pas bon!

À tantôt

 

[ya_v_ka]

Salut Jocelyn, le Forum

avec l'enregistreur de macro j'obtiens:

With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 90
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

ce qui me semble réponds à ta question ;-)

Ya'v

 

[Jocelyn]

OH! yes!

Merci beaucoup!

Solution si simple, mais j'y pense jamais.(D'enregistré une macro)

Encore merci

et je félécite tout le forume pour le bénévola..

A+