Discussion :

[omrsmiloud]

bonsoir
j'ai besoin de votre aide pour la création d'une feuille graphique séparée a partir des données de deux colonnes d'une ListBox Multi-colonnes ( en VBA)
quelque chose pour remplacer "Worksheets(“sheet1”).Range(“A1”).CurrentRegion ...." dans le code ci-dessous par le contenu de la ListBox

Code :

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

1
2
3
4
5
6
Sub createmychart()
Dim chart1 As Chart
Set chart1 = Charts.Add
chart1.SetSourceData Source:=Worksheets(“sheet1”).Range(“A1”).CurrentRegion, PlotBy:=xlColumns
chart1.ChartType = xlColumnClustered
End Sub

merci d'avance

[Menhir]

Tu ne peux pas.
Les données d'un graphiques doivent être dans une feuille de calcul.

[mercatog]

On pourra utiliser 2 tableaux par exemple

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
Sub createmychart()
Dim TbX, TbY
Dim Chart1 As Chart
 
TbX = Array(1, 6, 12, 4)
TbY = Array(10, 8, 21, 6)
 
Set Chart1 = Charts.Add
With Chart1
    .ChartType = xlColumnClustered
    With .SeriesCollection.NewSeries
        .XValues = TbX
        .Values = TbY
    End With
End With
Set Chart1 = Nothing
End Sub