Bonjour à tous,

Je veux réaliser un graph en nuage de point sans marqueur avec une double barre d'erreur. J'ai déjà réalisé se type de graphique dans un autre programme mais là pas moyen d'avoir un graphique nuages de point, aprés la XL.Charts.Add il ne veux plus continuer
Voici le code :
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
 
XL.Range("A2:B" & nbepoint).Select
XL.Charts.Add
XL.ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
XL.ActiveChart.SetSourceData Source:=XL.Sheets("synthèse").Range("A2:B" & nbepoint), PlotBy:=xlColumns
XL.ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="GraphPd"
With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Nombre de cycles"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Moyenne Pd (µm)"
End With
XL.ActiveChart.SeriesCollection(1).Select
XL.ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, Amount:="=synthèse!F2:F" & nbepoint, MinusValues:="=synthèse!F2:F" & nbepoint
merci pour vos réponses

a+