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:
Pouvez vous m'aider à finir cela ?
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 '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
Merci d'avance
Partager