Salut,
 
J'ai récupéré un super code mais je cherche à l'appliquer à deux graphiques au lieu d'un seul. Que faut-il changer ?  
 
Ca coince quand je veux modifier Set objChart = wsChart.ChartObjects(1) avec genre Count à la place...
 
Merci
 
 
Option Explicit
 
Public Sub LabelAndColor()
Dim wb As Workbook
Dim wsData As Worksheet, wsChart As Worksheet
Dim objChart As ChartObject
Dim i As Long
 
    Set wb = ActiveWorkbook
    Set wsData = wb.Worksheets("données indiv pour graph" )
    Set wsChart = wb.Worksheets("Graphiques" )
    Set objChart = wsChart.ChartObjects(1)
   
With objChart.Chart.SeriesCollection(1)
        .ApplyDataLabels Type:=xlDataLabelsShowLabel
        For i = 1 To .Points.Count
            With .Points(i)
                .DataLabel.Text = wsData.Cells(i + 2, 1)
                .DataLabel.Font.Size = 9
                .MarkerBackgroundColorIndex = _
                wsData.Cells(i + 2, 1).Interior.ColorIndex
            End With
 
        Next i
    End With
 
    Set objChart = Nothing
    Set wsChart = Nothing: Set wsData = Nothing
 
End Sub

Salut,
 
Avant toutes choses, merci de placer ton code entre balises c/c++, cela permettra une meilleure lisibilité et ajoutera les numéros de lignes ...
 
Dans ton code, ajoute et/ou modifie les lignes :

 
En clair, fait une boucle sur tous les objets ChartObjects de ta feuille ...