Problème effacement séries d'un graphique

[mécano41]

Bonjour à tous,

J'ai un problème d'effacement des séries d'un graphique. Tout est dit dans le fichier joint extrait d'une appli. plus compliquée.

Si quelqu'un à une idée de ce qui ne va pas .... merci d'avance

Cordialement

 

[camarchepas]

Re : Problème effacement séries d'un graphique

Bonjour ,

J'ai remplacé ta boucle for next par une for each next et en déclarant l'objet série

du coup , je peu tester le nom de la série et tout ce qui commence par Série sera effacé .

Option Explicit

' --------------- Mise à jour dessin (séries du graphe)
Sub BoutonLancer_Click()
Dim Ligne As Long
Dim Serie As Series
Dim CoucheCour As Single
Dim DebAdresse As String, AbscH As String, OrdoH As String
Dim Nom As String
ActiveSheet.ChartObjects("Dessin1").Activate
With ActiveChart
    .PlotArea.Select
    ' ----- Effacement des séries des couches complètes
    For Each Serie In .SeriesCollection                                                                ' Début à 4 car 3 premières séries conservées
       ' On Error Resume Next
       Nom = Serie.Name
       If Left(Nom, 5) = "Série" Then Serie.Delete                                                                          ' Effacement des séries
       ' On Error GoTo 0
    Next Serie
    For Ligne = 1 To 3
        ' Création d'une série par couche
        AbscH = Range("DebSortie").Offset(Ligne - 1, 0).Resize(1, 2).Address
        OrdoH = Range("DebSortie").Offset(Ligne - 1, 2).Resize(1, 2).Address
        DebAdresse = "=" & ActiveSheet.Name & "!"
        .SeriesCollection.NewSeries
        With .SeriesCollection(3 + Ligne)
            .XValues = DebAdresse & AbscH
            .Values = DebAdresse & OrdoH
            .Select
             With Selection.Format.Line
                 .ForeColor.RGB = RGB(255, 0, 0)
                 .Weight = 2.25
             End With
        End With
    Next Ligne
End With
End Sub

 

[mécano41]

Re : Problème effacement séries d'un graphique

Bonjour, camarchepas,

Merci beaucoup, tout fonctionne...

Bon week-end.

Cordialement