XL 2010 serie graphique, VBA

[CB60]

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

 

[Dranreb]

Bonjour.
Peut être if IsError(ActiveChart.SeriesCollection(i)) Then
Une cellule où on voit "#REF!" contient en réalité CvErr(xlErrRef)

 

[CB60]

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]

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.

 

[CB60]

re
Merci, et tu me conseille quoi pour pouvoir effacer mes séries en erreur?

 

[Dranreb]

Peut être voir si leur formule contient "#REF!"
Déjà Dim S As Series
Ensuite For Each S In COt.Chart.SeriesCollection
…plus facile de programmer avec les propriétés de S suggérées.

 

[Staple1600]

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]

Bonjour à tous
J'ai testé, bon peut être que je suis pas doué ( en macro c'est sur), il m'indique une erreur 2023 sur cette ligne:

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

il part bien de la derniere série, et ce bloque dessus car dans les valeurs j'ai bien #ref

 

[CB60]

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