Discussion :

[Romain57000]

Bonjour,

Je veux créeer un graphique dont la source varie selon le contenu de deux Combobox. Je m'explique.
J'ai un tableau avec une colonne donnant les mois, et 6 autres renvoyant des pourcentages.
J'ai une userform qui permet de selectionner le mois de départ et le mois d'arrivée pour lequel je voudrais générer le tableau.

Le problème vient de la déclaration de la source dans VBA :
ActiveChart.SetDataSource...
Normalement on met ("A1:F4") par exemple, mais dans mon cas, je voudrais mettre

Code :

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

1
2
3
4
5
6
7
Sub CreationGraph()
        Charts.Add
    ActiveChart.ChartType = xlColumnStacked100
    ActiveChart.SetSourceData Source:=Sheets("Extraction").Range("Cells(Ligne1,7):Cells(Ligne2,7)", "Cells(Ligne1,23),Cells(Ligne2,28)",
 PlotBy xlColumns
        ActiveChart.Location Where:=xlLocationAsNewSheet
 End Sub

Où Ligne1 et Ligne 2 correspondent aux valeurs données par les Combobox1 et 2

Comment faire foncionner cette procédure ?

Merci de votre aidre

[SilkyRoad]

bonsoir


Tu peux tester cette adaptation

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
Dim Ligne1 As Integer, Ligne2 As Integer
Dim Ws As Worksheet
 
Ligne1 = 2
Ligne2 = 5
 
Set Ws = Worksheets("Extraction")
 
Charts.Add
With ActiveChart
    .ChartType = xlColumnStacked100
    .SetSourceData Source:=Ws.Range(Ws.Cells(Ligne1, 7), _
        Ws.Cells(Ligne2, 28)), PlotBy:=xlColumns
    .Location Where:=xlLocationAsNewSheet
End With

bonne soirée
michel