Hi Francois,
Try:
Private Sub UserForm_Initialize()
MSChart1.ChartData = Names("Data").RefersToRange.Value
End Sub

MP

"francois" a écrit dans le message de
om...
Hello,

I have created a user form and trying to display a MSCHart.
I have defined the data in a spreadhseet. This data is made three
column Time, A1, A2. I have defined a name "Data" with these three
column.
THis is the cource code.

Private Sub MSChart1_OLEStartDrag(Data As MSChart20Lib.DataObject,
AllowedEffects As Long)
MSChart1.ChartData = Names("Data").RefersToRange.Value
MSChart1.Refresh
End Sub

When opening the user form the data from "Data" do not show up.

Thanks for your help

Francois