Macro pour construction de graphique et boucle for

Bonjour à tous,

J'exécute une macro qui ne marche pas depuis ce matin et j'ai vraiment besoin d'aide.voici de facon simplifiée ce que je souhaite faire.

faire une représentation des séries présentes sur ma feuille "calcul" (colonne en jaune) en fonction de la date( colonne en gris) dans le graphique inséré dans ma feuille "ETF1", de sorte qu'a chaque fois que ma macro effectue un choix dans ma liste déroulante en V8 le graphique se met à jour automatiquement.

J'ai un message d'erreur sur la ligne suivante.

 ActiveChart.SeriesCollection.NewSeries

ci dessous mon code en entier

Sub update6()
Dim S3 As Worksheet
Dim S4 As Worksheet

Dim i, j, j1, j2, k As Long

Set S3 = Sheets("Calcul")
Set S4 = Sheets("ETF 1")
k = 3
j1 = k + 1035
j2 = k + 1335

    For j = j1 To j2 Step 6
        S4.Cells(8, 22) = S3.Cells(2, k)
        S4.ChartObjects("Chart 1").Activate
        ActiveChart.ChartType = xlLine
        ActiveChart.PlotArea.Select
        ActiveChart.Axes(xlValue).MajorGridlines.Select
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(1).Values = S3.Range(S3.Cells(7, j), S3.Cells(S3.Cells(3, 1038), j))
        ActiveChart.SeriesCollection(1).XValues = S3.Range(S3.Cells(7, 1037), S3.Cells(S3.Cells(3, 1038), 1037))
        ActiveChart.SeriesCollection(1).Delete

    Next j
    k = k + 1
End Sub

' Code dans la feuille ETF1

Private Sub worksheet_change(ByVal Target As Range)
Dim S3, S4 As Worksheet
Set S3 = Sheets("calcul")
Set S4 = Sheets("ETF 1")

    If Target.Address = S4.Cells(8, 22) Then

        Call update6
    End If
End Sub

Pourriez - vous m'éclairer svp?

merci de vos réponses

ci-joint mon fichier exemple

cordialement

bonjour

je n'ai pas accès à V8 !

cependant, Excel dispose de tout ce qu'il faut. Pas besoin de VBA.

fais un Graphique croisé dynamique et tu ajoutes un simple segment pour le filtrer

si problème envoie un fichier simplifié

Bonjour,

Merci de ta réponse

J'aurai bien voulu le faire sous Excel mais dans le cadre de mon stage je dois impérativement le faire en Vba, tu ne réussit pas à voir la liste déroutante sur la feuille etf1 cellule v8?