[VBA] Création Pareto

Bonjour le forum,

Je tourne en rond, je n'arrive pas à créer un graph type Pareto

Vous trouverez ci-dessous le boute de code que j'ai commencé à écrir. Il se trouve aussi dans le fichier joint pour travailler dessus.

Sub PARETO()
Dim PlageAcceuil As Range
Dim PlageData As Range
Dim Graph As Chart

   ' Range("A1:B7").Select
   ' ActiveSheet.Shapes.AddChart2(366, xlPareto).Select

    With ActiveSheet
        Set PlageData = .UsedRange
        Set PlageAcceuil = .Range("D1:J24")
        Set Graph = .ChartObjects.Add(PlageAcceuil.Left, PlageAcceuil.Top, PlageAcceuil.Width, PlageAcceuil.Height).Chart
    End With

    With Graph
        .ChartType = xlPareto  'xlRegionMap
        .SetSourceData Source:=PlageData
    End With
End Sub

Par avance, merci de l'interet porté au sujet !

NB : je pensais aller fouiller dans le code de XlStat mais les restrictions de ma boite m'empeche d'activer la fonctionnalité...

Bonjour,

Et ton graphique réalisé manuellement, il donne quoi ?

Cdlt.

Bonjour Jean-Eric

Tu parles du résultat visuel ? Si c'est le cas voir ci-dessous les réglages :

• Axe de droite : Graduitation principal du "exterieur", couleur noir en trait plein de 0.5 pt (idem pour les 2 autres axes)
• Quadrillage principal : Trait plein noir de 0.5pt
• Contour du graphyque : tait plein noir
• Série de données : largeur interval de 3%, contour en trait plein noir de 0.5pt et replissage bleu vif
• Courbe Pareto : Couleur violet en trait plein de 1pt

Je me disais, il ne serais pas plus simple de créer un graphique en bare et d'y ajouter une courbe ? Il suffirais juste que je tri les datas en amont en ordre décroissant !