format TCD

L'enregistreur d emacro donne ceci, à toi d'adapter :-)

Selection.CurrentRegion.Select ' si on est sur une cellule du tableau
!!!
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With


"dédé" <dede@dede.com> a écrit dans le message de
news:ux8YGGZQEHA.3232@TK2MSFTNGP11.phx.gbl...

salut
j'ai créer deux boutons qui me permettent de modifier le nombre et la
disposition des champs de mon tableau croisé dynamlique

Par contre je n sais pas comment faire en VBA pour qu'à chaque manip mes
données soient centrées et que les cellules contenant les données soient
encadrées.

Quelqu'un peut il m'aider?
Merci