Moyenne avec cellules variables

Version imprimable

13/12/2012, 15h52
sims92.66

Moyenne avec cellules variables
Bonjour à tous,

J'aimerai savoir s'il est possible de faire la fonction moyenne avec des cellules paramétrés.
Le code ci-dessous sera plus claire, cependant il ne fonctionne pas...

Mercipour vos réponses
Code:

1 2 3 4 Sheets("test").Activate Dim i As Integer i = 13 Cells(77, i) =Application.WorksheetFunction.Average((Cells(59, i), Cells(65, i), Cells(68, i), Cells(71, i), Cells(74, i))

En espérant que ça réponde à ta question :

Code:

1
2
3
4
5
6
7
8
9
10
Sub avrg()
Dim i As Integer
 
i = 1
 
With Worksheets("test")
    Cells(6, i) = Application.WorksheetFunction.Average(Cells(1, i).Value, Cells(2, i).Value, Cells(3, i).Value, Cells(4, i).Value, Cells(5, i).Value)
End With
 
End Sub

Tiens moi au courant ! :ccool:

Bonjour,

Pourquoi utiliser Average?

Code:

1
2
3
4
5
6
7
Dim i as Integer
 
i = 13
 
With Sheets("test")
    .Cells(77, i) = (.Cells(59, i).Value + .Cells(65, i).Value + .Cells(68, i).Value +. Cells(71, i).Value + .Cells(74, i).Value)/5
End With

13/12/2012, 17h42
sims92.66

Merci Kimy, le code marche bien cependant lorsqu'il y une cellule vide dans celles citées le code ne peut faire la moyenne. Y a t il un solution?

Issoram, j'utilisé ce code avant, cependant il se peut que certaines des cellules citées soient vides du coup on ne peut divisé par 5 :(

Merci encore pour votre aide

Dirty fix :

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
Sub avrg()
Dim i As Integer
Dim nb As Integer
Dim tot As Integer
i = 13
 
With Worksheets("test")
    nb = 0
    tot = 0
    For j = 0 To 5
        If j <> 1 Then
            If .Cells(59 + (3 * j), i) <> "" Then
                tot = tot + .Cells(59 + (3 * j), i)
                nb = nb + 1
            End If
        End If
    Next j
 
    If nb <> 0 then
        Cells(59 + (3 * j), i) = tot / nb
    End If
 
End With
 
End Sub

En espérant que ça te convienne pour autant. :ccool:

Bonjour,

Merci pour ta réponse Kimy.
Je viens de l'adapter et ca marche, je vais cependant essayer de voir s'il n'y a pas plus rapide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim deno As Integer
deno = 0
If Cells(53, i) > 0 Then
deno = deno + 1
End If
If Cells(56, i) > 0 Then
deno = deno + 1
End If
If Cells(59, i) > 0 Then
deno = deno + 1
End If
If Cells(62, i) > 0 Then
deno = deno + 1
End If
If Cells(65, i) > 0 Then
deno = deno + 1
End If
If Cells(68, i) > 0 Then
deno = deno + 1
End If
 
 
Cells(71, i) = (Cells(53, i) + Cells(56, i) + Cells(59, i) + Cells(62, i) + Cells(65, i) + Cells(68, i)) / deno

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub avrg()
Dim i As Integer
Dim nb As Integer
Dim tot As Integer
i = 13
 
With Worksheets("test")
    nb = 0
    tot = 0
    For j = 0 To 5
        If .Cells(53 + (3 * j), i) <> "" Then
            tot = tot + .Cells(53 + (3 * j), i)
            nb = nb + 1
        End If
    Next j
 
    If nb <> 0 then
        Cells(53 + (3 * j), i) = tot / nb
    End If
 
End With
End Sub

Voila pour les cells que tu présentes ! :ccool: