[XL-2003] Actualiser une listbox a partir d'un combobox

Actualiser une listbox a partir d'un combobox

Bonjour,
j'ai une listebox qui alimente un graphique

Code:

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:

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

bonsoir LaPanic le forum tu peus t'orienter avec un code dans ce style!!!!
Code:

1 2 3 4 Private Sub combobox2_Click() Sheets("Report").Range("c2") = ComboBox2.Value listbox1_Update End Sub
Code:

1 2 3 4 Public Sub listbox1_Update() ListBox1.Clear 'ton code de la listbox End Sub
ou sans trop connaitre ton code dans ce style simplement!!!!
Code:

1 2 3 4 Private Sub combobox2_Click() Sheets("Report").Range("c2") = ComboBox2.Value Unload Me: UserForm1.Show End Sub

Merci laetitia:
j'ai opté pour la première solution et ca marche bien
la deuxième a sorti un msg d'erreur

Merci pour votre aide