Syntaxe Data source graphique

Maxxikilla Messages postés 40 Statut Membre -  
Maxxikilla Messages postés 40 Statut Membre -
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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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+
    1
  2. Maxxikilla Messages postés 40 Statut Membre
     
    Merci, Ca fonctionne du tonnerre !!!!!
    0