tracer Valeurs = f(référence)
Private Sub ComboBox1_Change()
Trace
End Sub
Private Sub ComboBox2_Change()
Trace
End Sub
Sub Trace()
Dim d1#, d2#, plage As Range
d1 = CDate(ComboBox1.Value)
d2 = CDate(ComboBox2.Value)
With Sheets("Calculs")
Set plage = .[C3:D3].Offset(Application.Match(d1, .[B4:B65536])) _
.Resize(1 + Application.Match(d2, .[B4:B65536]) - Application.Match(d1, .[B4:B65536]))
End With
Application.ScreenUpdating = False
With Sheets("Feuil1").ChartObjects(1).Chart.SeriesCollection(1)
.XValues = plage.Columns(1)
.Values = plage.Columns(2)
End With
End Sub
d1 = Application.Min(CDate(ComboBox1), CDate(ComboBox2))
d2 = Application.Max(CDate(ComboBox1), CDate(ComboBox2))
Sub Trace(col As Byte)
Dim d1#, d2#, plage As Range
On Error Resume Next
d1 = Application.Min(CDate(ActiveSheet.ComboBox1), CDate(ActiveSheet.ComboBox2))
d2 = Application.Max(CDate(ActiveSheet.ComboBox1), CDate(ActiveSheet.ComboBox2))
With Sheets("Calculs")
Set plage = .[C3:F3].Offset(Application.Match(d1, .[B4:B65536])) _
.Resize(1 + Application.Match(d2, .[B4:B65536]) - Application.Match(d1, .[B4:B65536]))
End With
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
If Err Then
.XValues = 0
.Values = 0
Else
.XValues = plage.Columns(1)
.Values = plage.Columns(col)
End If
End With
End Sub