Sub Macro1()
ActiveCell.FormulaR1C1 = 'Bonjour' & Chr(10) & 'vous êtes sur XLD'
ActiveCell.Characters(Start:=1, Length:=7).Font.FontStyle = 'Gras'
ActiveCell.Characters(Start:=9, Length:=17).Font.FontStyle = 'Italique'
End Sub[Code]
@+Jean-Marie
PS : Utilisateur de Mac, je ne déplore de plus en plus la non reprise d'information concernant cette machine par les différents intervenants.
Message édité par: JeanMarie, à: 27/07/2005 11:21