Bonjour,
j'ai une listebox qui alimente un graphique
et j'ai aussi un combobox qui me permet d'actualiser la date sur ma feuille de calcul
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
27
28
29
30
31
32
33 Private Sub ListBox1_change() Dim x As Integer, i As Integer, j As Integer Dim Tableau(12), Plage(12) For i = Cht.SeriesCollection.Count To 1 Step -1 Cht.SeriesCollection.Delete i - 1 Next i For i = 1 To 12 Tableau(i) = Sheets("calculation").Cells(2, 1 + i) Next i With Cht .HasLegend = True .Legend.Position = chLegendPositionBottom End With For j = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(j) = True Then If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add For i = 1 To 12 Plage(i) = Sheets("calculation").Cells(j + 3, 1 + i) Next i With Cht .SetData C.chDimCategories, C.chDataLiteral, Tableau .SeriesCollection(x).Caption = Sheets("calculation").Cells(j + 3, 1) .SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage .SeriesCollection(x).Interior.Color = 50000 * (j + 1) End With x = x + 1 Erase Plage End If Next j End Sub
je voudrais qu'après le changement de la valeur de "C2" la série sectionnée dans la listbox soit réactualisée ou bien la première série soit sélectionnées pour réactualiser le graphique
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub ComboBox2_Change() Sheets("Report").Range("c2") = ComboBox2.Value ' UserForm1.Repaint '''test qui n'a pas marché ' ListBox1_change.Repaint '''test qui n'a pas marché End Sub
Merci pour votre aide
Partager