XL 2010 serie graphique, VBA

Sub controlegraph()
Dim Graph As ChartObject
Dim WS As Worksheet
Dim Sc
Sc = ActiveChart.SeriesCollection.Count 'Graph.Chart.SeriesCollection.Count
MsgBox Sc
For Each WS In Worksheets
For Each Graph In WS.ChartObjects
For i = Sc To 1 Step -1
If IsError(ActiveChart.SeriesCollection(i)) Then
ActiveChart.SeriesCollection(i).Delete
End If
Next i
Next Graph
Next WS

End Sub

Cliquez pour agrandir...

Sub Del_RefExt()
' Modeste GeeDee MPFE 9 avril 2004
For Idxgraphe = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(Idxgraphe).Activate
With ActiveChart
.ChartArea.Select
'---- dénombrement inversé !!!!!
For i = .SeriesCollection.Count To 1 Step -1
Serie$ = "'" & .SeriesCollection(i).Formula
If InStr(Serie$, "#REF") <> 0 Then
rep = MsgBox("ref externe non valide !" & Chr(10) _
& "Série N°" & i & Chr(10) _
& Serie$, _
vbYesNo + vbQuestion, _
"Supprimer Serie Fantome !!")
If rep = vbYes Then .SeriesCollection(i).Delete
End If
Next
End With
Next Idxgraphe
End Sub

Cliquez pour agrandir...

Serie$ = "'" & .SeriesCollection(i).Formula

Cliquez pour agrandir...