Sub ImprimerGraphiques()
Dim nbCharts As Integer, i As Integer, j As Integer, k As Integer
Dim Valeurs As Variant
Dim somme
Dim oChart
Dim oSerie
Dim Adr
nbCharts = Feuil3.ChartObjects.Count
i = 0
For i = 1 To nbCharts
somme = 0
Set oChart = Feuil3.ChartObjects(i).Chart
j = 0
If oChart.SeriesCollection.Count > 0 Then
For j = 1 To oChart.SeriesCollection.Count
On Error GoTo FinBoucle
If IsArray(oChart.SeriesCollection(j).Values) Then
Valeurs = oChart.SeriesCollection(j).Values
'fait la somme contenue dans les graphique
For k = LBound(Valeurs) To UBound(Valeurs)
somme = somme + Valeurs(k)
Next k
End If
FinBoucle:
Next j
End If
If somme > 0 Then
Adr = oChart.SeriesCollection(1).Formula
Adr = Left(Adr, InStr(Adr, ",") - 1)
Adr = Mid(Adr, InStr(Adr, "!") + 1)
On Error Resume Next
Feuil3.PageSetup.PrintArea = _
Range(oChart.Parent.TopLeftCell.Offset(-12), oChart.Parent.BottomRightCell).Address
On Error GoTo 0
Feuil3.PrintPreview
End If
Next i
End Sub