Bonjour,

je souhaite réaliser une boucle afin de faire des graphiques automatiquement
le probleme est sur l'ordonne des données,
les variable de temps sont en colonne 1 reste toujours en abscisse
je souhaite decaller mon graphique sur les colonnes , ma selection ne fonctionne pas , elle regroupe toute les colonnes en meme temps.

en faite il faudrait que je realise ceux la sur la boucle

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ActiveChart.SetSourceData Source:=Sheets(sNomOnglet).Range("A1:A32,Q1:Q32"), PlotBy:=xlColumns

j'ai essaye cela mais cela sélectionne toutes les colonne de 1 a 3

je ne comprend pas?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
While Worksheets(sNomOnglet).Cells(1, i).Value <> ""
    sNomCompter = Worksheets(sNomOnglet).Cells(1, i).Value
    'Addittionne Graph
 
    Set rData1 = Range(Sheets(sNomOnglet).Cells(1, 1), Sheets(sNomOnglet).Cells(Ligne, 1))
    Set rData2 = Range(Sheets(sNomOnglet).Cells(i, 1), Sheets(sNomOnglet).Cells(Ligne, i))
    Set rData = Union(rData1, rData2)
    Charts.Add
 
    With ActiveChart
        .ChartType = xlLine
        .SetSourceData Source:=Sheets(sNomOnglet).Range(rData1, rData2), PlotBy:=xlColumns
        .Location Where:=xlLocationAsNewSheet, Name:=sNomCompter & " " & sMoisOnglet
        .HasTitle = True
        .ChartTitle.Characters.Text = "Compteurs " & sNomCompter & " " & sMoisOnglet
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
  i = i + 1
 
 
Worksheets(sNomOnglet).Select
Wend
variable "ligne" est la derniere ligne du tableau