Graphique a partir d'une listebox

Version imprimable

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:

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

23/04/2018, 08h50
Menhir

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

On pourra utiliser 2 tableaux par exemple

Code:

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