Discussion :

[baptbapt]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'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

[SfJ5Rpw8]

tu devrai rajouter en haut de ton module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Option Explicit

cela te permettrai de détecter lors de la compilation (Débogage/Compiler) les erreurs sur nom de variables..

ainsi tu as une variable total l'autre totale ..? c'est bien 2 variables différentes..?

Number n'est pas déclaré..!

[baptbapt]

A oui erreur toute bete

Merci bbil, c'est bon je vien de corriger

j'ai quasis fini, enfin