bonsoir Jéjé
est ce que tu as bien conservé dans ta procédure la ligne qui supprimait l'ancienne série ?
Sub ComboBox1_Change()
Dim Plage As Range
Dim Couleur As Byte
Select Case Sheets('Feuil1').ComboBox1 'definir les donnees en fonction du combobox
Case 'janvier'
Set Plage = Sheets('Feuil2').Range('B2:E2') ' tableau
Couleur = 11
Case 'fevrier'
Set Plage = Sheets('Feuil2').Range('B3:E3')
Couleur = 3
Case 'mars'
Set Plage = Sheets('Feuil2').Range('B4:E4')
Couleur = 3
End Select
On Error Resume Next
'supprime la 1ere serie du graphique .... 'l'ancienne'
Worksheets(1).ChartObjects('Graphique 5').chart.SeriesCollection(1).Delete
On Error GoTo 0
'creation d'une nouvelle serie
Sheets('Feuil1').ChartObjects('Graphique 5').chart.SeriesCollection.NewSeries
'definition des données pour la 1ere serie du 'Graphique 5'
Sheets('feuil1').ChartObjects('Graphique 5').chart.SeriesCollection(1).Values = Plage
Sheets('Feuil1').ChartObjects('Graphique 5').chart.SeriesCollection(1).Name = _
Sheets('Feuil1').ComboBox1
End Sub
bonne soirée
MichelXld
Message édité par: michelxld, à: 23/03/2006 20:53