====== Excel ======

===== Graphiques =====
\\ 
==== Modifier l'épaisseur de toutes les courbes d'un graphique ====

Dans le classeur concerné, créer la macro suivante dans un module :
<code>
Public Sub TraitFin()
Dim gr As Object, nbc As Long, nuc As Long
Set gr = ActiveSheet.ChartObjects(1).Chart
With gr
  nbc = gr.SeriesCollection.Count
  For nuc = 1 To nbc
    .SeriesCollection(nuc).Border.Weight = 3
  Next nuc
End With
End Sub
</code>

puis, aller sur la feuille contenant le graphique à modifier et exécuter la macro.

\\