Code pour histogramme défaillant

[LudOL56]

Bonjour,

Je suis en train de faire un code pour réaliser un histogramme, mais celui-ci ne marche pas...je cherche à faire le plus simple possible sans instructions supplémentaires. Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Confection des classes
            ab = InputBox("Combien de classes voulez vous ?")
            Nb_class = ab
            inter = (Max - Min) / Nb_class
            Print inter
 
 
            valinf = 0
            valsup = 0
 
            For i = 1 To Nb_class
            valinf = valinf + inter
            valsup = valsup + inter
            class(n) = 0
                For n = 1 To TOTAL
                If n > 1 And s(n) > valinf And s(n) < valsup Then class(n) = class(n) + 1
                Print class(n)
                Next n
                Line (origine_x + inter, origine_y)-(origine_x + inter, origine_y - class(n) * 300)
            Next i

Pouvez vous m'aider à finir cela ?

Merci d'avance

[aA189]

http://excel.developpez.com/faq/?pag...ue#GraphCreate

Pour l'instant je ne vois nul part dans ton code la création d'un objet Chart ...

Voici une amorce de code pour creer un graphique trouvé dans la FAQ .

Code :

1
2
3
4
5
6
Dim objChart As Chart, objRange As Range
 
    Set objRange = Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(1, 1), Worksheets("Feuil1").Cells(21, 3))
    Set objChart = ThisWorkbook.Charts.Add
    objChart.ChartType = xlXYScatter  'Ici il faudrait peut-être trouvé le type de graph correspondant à une histogramme
    objChart.SeriesCollection.Add objRange, xlColumns, True, True

Le mieux est que tu mettes ton fichier en pièce jointe pour voir ou tu en es
dans ton code