Diegoch
Messages postés56Date d'inscriptionvendredi 30 mars 2001StatutMembreDernière intervention 7 septembre 20116 10 févr. 2005 à 13:56
'fusionner les cellules
Range("A1:A4").Merge
'changer la police d'une cellule selectionnée
With Selection.Font
.Name = "Comic Sans MS"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
'l orientation du texte de la cellule F10
Range("F10").Select
With Selection
.HorizontalAlignment = xlRight (ou xlCenter ou xlLeft)
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Je pense que tu trouvera les differentes valeurs des propriétés dans l aide