XL 2010 serie graphique, VBA

CB60

XLDnaute Barbatruc
Bonjour a Tous

Connaissez vous la formulation en vba pour cette commande:
If ActiveChart.SeriesCollection(i) = "#ref" Then
je souhaite controler si la série est en erreur, si oui la supprimer, si non, passer à la suivante.
Ce que j'ai mis en exemple plante
 

CB60

XLDnaute Barbatruc
Bonsoir Dranreb
Bon, j'ai testé mais ça ne fonctionne pas!!
Voici la macro complète au cas ou?
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
Merci tout de même
 

Dranreb

XLDnaute Barbatruc
Un ChartObject n'a pas de propriété SeriesCollection. C'est un objet Chart qui en a une.
Mais un ChartObject a une propriété Chart qui elle en est un.

À la base un Chart représente une variété de feuille Excel, mais peu de gens pensent à l'implanter normalement de cette façon. Mais elle peut être incorporée à une feuille de calcul grâce à un support intermédiaire que est représenté par un ChartObject.
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

Rien ne se perd, tout se transforme ;)
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
source vieille de 13 ans ;)
 

CB60

XLDnaute Barbatruc
Re
J'ai pris le problème dans un autre sens!!!
A la place de supprimer les lignes dont je n'avais pas besoin, je les masque, et mon graphique s'adapte au lignes visibles,
Plus simple que la boucle dans le graphique, mais bon j'aurais bien aimé trouver une solution avec la gestion des erreurs!!
Merci à vous deux
 

Discussions similaires

Statistiques des forums

Discussions
294 211
Messages
1 936 900
Membres
188 102
dernier inscrit
benefaballe