[VBA-E]Problème avec ArrondiSup
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:
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 re |
Code:
'Range("G" & lige).Value = total / 10
je calculais la moyenne, et j'ai voulu faire des arrondis.
si 13,5 je met 14
en dessous de 13.4 je met 13
...
Merci
