Bonjour,
j'ai une listebox qui alimente un graphique

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
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
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
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

Merci pour votre aide