Syntaxe Data source graphique

Bonjour,

Je veux réaliser un graphique à plage de données variable.

Mon problème et de savoir quelle est la bonne syntaxe:

J'ai essayé ceci, mais sans succès

 ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    
     With ActiveChart
        
        .Parent.Name = "Tabtab"
      ' solution 1     
.SeriesCollection.Values = Sheets("CA Mensuel").Range(Sheets("CA Mensuel").Cells(80, nbc4 - 12), Sheets("CA Mensuel").Cells(81, nbc4))
    End With
    
    Set champDonnees = (Cells(80, nbc4 - 12), Cells(81, nbc4))
    
'solution 2
    ActiveChart.SetSourceData Source:=Range("'CA Mensuel'!range(Cells(80, nbc4 - 12), Cells(81, nbc4))")

' solution 3
    ActiveChart.SetSourceData Source:=Sheets("CA Mensuel").Range(champDonnees), PlotBy:=xlRows


Aucun de ces essais ne fontionne. Merci pour votre aide

2 réponses

  1. Bonjour,

         With ActiveChart
            .Parent.Name = "Tabtab"
            'solution 2
            .SetSourceData Source:=Sheets("CA Mensuel").Range(Cells(80, nbc4 - 12), Cells(81, nbc4))
            ' ou
            ' solution 3
            Set champDonnees = Sheets("CA Mensuel").Range(Cells(80, nbc4 - 12), Cells(81, nbc4))
            .SetSourceData Source:=champDonnees, PlotBy:=xlRows
        End With


    A+