Code pour histogramme défaillant

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

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