Discussion :

[arnest]

Bonjour,

Le code suivant permet d'affichet un graphique d'une manière dynamique

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
24
25
26
Sub UpdateChart()
    Dim TheChartObj As ChartObject
    Dim TheChart As Chart
    Dim UserRow As Long
    Dim CatTitles As Range
    Dim SrcRange As Range
    Dim SourceData As Range
 
    If Sheets("Production").CheckBox1 Then
        Set TheChartObj = ActiveSheet.ChartObjects(1)
        Set TheChart = TheChartObj.Chart
        UserRow = ActiveCell.Row
        If UserRow < 3 Or IsEmpty(Cells(UserRow, 1)) Then
            TheChartObj.Visible = False
        Else
            Set CatTitles = Range("c2:y2")
            Set SrcRange = Range(Cells(UserRow, 1), Cells(UserRow, 25))
            'Set SourceData = Union(CatTitles, SrcRange)
 
            Set SourceData = SrcRange
            TheChart.SetSourceData _
              Source:=SourceData, PlotBy:=xlRows
            TheChartObj.Visible = True
        End If
    End If
End Sub

Comment faire pour que le graphique affiche dans l'axe des absisses (X) les données de la ligne c2:y2

Comment faire?

[arnest]

J'ai trouvé, simplement il faut rajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TheChart.SeriesCollection(1).XValues = "=..."