Bonjour,

J'aurai besoin de votre aide pour tracer une seconde courbe sur mon histogramme (qui fonctionne par ailleurs) qui représente une loi normale avec des données sur la plage suivante : Sheet1.range(Sheet1.Cells(8, 8), Sheet1.Cells(31, 8))
Mais je n'y parviens pas ...

Voici mon 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Set feuille = Sheets("Interface") 'affecte à l'objet feuille la feuille "interface"
Set graphique = feuille.ChartObjects.Add(60, 50, 1000, 800) 'créer le graphique
 
With graphique.Chart 'propriétés du graphique
    .ChartType = xlColumnClustered 'créer l'histogramme
    .SetSourceData Sheet1.range(Sheet1.Cells(8, 2), Sheet1.Cells(31, 2)) 'Sélectionne la contribution sur la plage de donnée
    .SeriesCollection.NewSeries
    .HasLegend = False
End With
 
With graphique.Chart
    .Axes(xlValue).Delete 'supprime l'axe des ordonnées
    .Axes(xlValue).MajorGridlines.Delete 'supprime les traits des ordonnées
    .Axes(xlCategory).Delete ' supprime l'axe des abscisses
    .ChartTitle.Delete 'supprime le titre
    .ChartGroups(1).GapWidth = 8 'définit l'écart entre les colonnes/intervals
End With
 
With feuille
    .ChartObjects(4).Left = range("S122").Left 'permet de positionner le graphique sur la cellule S122
    .ChartObjects(4).Top = range("S122").Top
End With
 
 graphique.Chart.SeriesCollection(2).Delete 'supprime la série 2
 graphique.Chart.SeriesCollection(1).Trendlines.Add 'ajoute une courbe de tendance de moyenne mobile
 graphique.Chart.SeriesCollection(1).Trendlines(1).Select
 
With Selection
        .Type = xlMovingAvg
        .Period = 2
 End With
 
 With graphique.Chart.SeriesCollection(1).Trendlines(1).Format.Line
        .Visible = msoTrue
        .Weight = 4
 End With
 
Set graphique = Nothing 'libère la mémoire
Set feuille = Nothing
Merci d'avance de votre aide !