Discussion :

[LaPanic]

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

[laetitia]

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

Code :

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

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

Code :

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

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 :

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

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

[LaPanic]

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