[VBA-E]Problème avec ArrondiSup

**baptbapt** · 30/08/2006, 13h04

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 re