Syntaxe Data source graphique

Fermé
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - Modifié par Maxxikilla le 23/07/2013 à 12:42
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - 23 juil. 2013 à 16:46
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

A voir également:

2 réponses

f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
23 juil. 2013 à 13:43
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
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
23 juil. 2013 à 16:46
Merci, Ca fonctionne du tonnerre !!!!!
0