Bonjour à tous
j'ai une liste de strings que j'écris dans une
feuille excel
chaque lettre dans un cell
chaque string a la meme longueur
le string le plus long est de 19 lettres
donc dans ce cas la rangée va de A1 à P1
1 Comment caculer le width des colonnes A:P
de façon à ne pas dépasser une feuille A4 ?
2 centrer chaque lettre dans chaque cell
j'ai crée un macro
Columns("B:B").ColumnWidth = 4
Range("B3:L7").Select
Range("L3").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
avec le code en net
j'ai écrit
cellstrcopy = "A1"
.Range(cellstrcopy).HorizontalAlignment = xlCenter
j'ai une erreur xlCenter is not declared
Merci