Bonjour Bonjour
Après avoir passé ma matinée a taper au PC, j'en suis déja a 4 Heures de programmation non Stop, encore 4 à tenir.
J'ai la tête comme une pasteque.
J'ai essayer d'utiliser les arrondi pour mon calcul de moyenne, mais maintenant, je n'ai plus que des 0.
Je me suis planter, je sais, pas besoin de me le dire.
J'ai été voir sur les autres topic, c'est d'ailleurs un des codes que j'ai repris.
Mais marche pas pour moi.
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 'Average -5/+5 Nb a/c Res.Activate Dim sd As Integer Dim totale As Long Dim inde As Integer Dim lige As Integer Dim ArrondiSup As Double 'For e = 1 To derlio lige = 6 inde = 1 totale = 0 For Each re In Range("G6:G" & i - 6) 'en fonction du nombre de valeurs à cumuler For sd = 1 To 10 totale = totale + Range("C" & sd + inde).Value 'Range("G" & lige).Value = total / 10 Number = total / 10 If Int(Number) = Number Then ArrondiSup = Number Else ArrondiSup = Round(Number) + 1 End If Range("G" & lige).Value = ArrondiSup Next sd inde = inde + 1 lige = lige + 1 totale = 0 Next reje calculais la moyenne, et j'ai voulu faire des arrondis.
Code : Sélectionner tout - Visualiser dans une fenêtre à part 'Range("G" & lige).Value = total / 10
si 13,5 je met 14
en dessous de 13.4 je met 13
...
Merci
Partager