Discussion :

[bebel9313]

Bonjour,
j'ai un pb avec l'objet range. Mais peut être y a t'il une autre solution à mon pb. Je ne sais pas???

Alors j'expose mon pb
Pb: à la base, je rentre le nb de jours (userform) pour calculer une moyenne. Puis, je veux calculer la moyenne en sélectionnant un certain nombre de cellules (range).
Mais le pb, c'est que suivant la cellule ou j'affiche le résultat de la moyenne, la somme des cellules (range) change aussi.

Pour faire clair, j'aimerai faire varier la sélection des cellules quand je fais la somme (range) dans différentes cellules.

Message d'erreur sur le range. C'est normal puisque cells renvoie une valeur.
Mais que faut il mettre pour sortir des lignes et des colonnes variables suivant la cellule ou je fais mon calcul????

merci bien

Code :

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

1
2
3
4
5
6
7
8
9
Function moyenne_arith(ByVal moyenne As Integer, decalcol As Integer, cellligne As Integer, cellcol As Integer) As Integer
'decalcol permet de definir à quelle colonne on fait reference relativement à la cellule
'à partir de cette cellule (premiere cellule de calcul), on remonte autant de fois pour calculer la moyenne.
Dim somme As Integer
somme = WorksheetFunction.Sum(Range("cells(cellligne-moyenne+1,cellcol+decalcol):cells(cellligne,cellcol+decalcol)"))
'somme ="cells(celligne-moyenne,cellcol+decalcol):cells(celligne,cellcol+decalcol)"))
moyenne_arith = somme / moyenne
'Range ("cells(celligne-moyenne,cellcol-decalcol):cells(celligne,cellcol-decalcol)")
End Function

[Iceabyssal]

Salut,

Je n'ai pas encore vérifié tes calculs, mais déjà, tes guillemets ne sont pas corrects..., et donc ta fonction non plus. Essaye de remplacer ton calcul de somme par :

Code :

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

1
2
 
somme = WorksheetFunction.Sum(Range(Cells(cellligne - moyenne + 1, cellcol + decalcol), Cells(cellligne, cellcol + decalcol)))

Si avec ça cela ne fonctionne pas, donne des valeurs types des entrées de ta fonction

[aalex_38]

Bonjour,

Si tu veux calculer une moyenne en utilisant "WorksheetFunction" pourquoi ne pas calculer directement la moyenne ?
Un exemple :

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
Dim MaPlage As Range
Dim lig1 As Long, lig2 As Long
Dim col1 As Integer, col2 As Integer
Dim moyenne_arith  As Double
 
lig1 = 1
col1 = 8
lig2 = 50
col2 = 8
 
Set MaPlage = Range(Cells(lig1, col1), Cells(lig2, col2))
 
moyenne_arith = WorksheetFunction.Average(MaPlage)
 
MsgBox moyenne_arith

Edit : un exemple plus complet :

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
30
31
32
33
34
 
Dim MaPlage As Range
Dim lig1 As Long, lig2 As Long
Dim col1 As Integer, col2 As Integer
Dim moyenne_arith  As Double
 
Dim Nombre As Long, Somme As Double, Nombrenum As Long, Vmoy As Double
 
lig1 = 1
col1 = 8
lig2 = 50
col2 = 8
 
Set MaPlage = Range(Cells(lig1, col1), Cells(lig2, col2))
 
moyenne_arith = WorksheetFunction.Average(MaPlage)
Somme = WorksheetFunction.Sum(MaPlage)
Nombre = MaPlage.Count
 
Nombre = MaPlage.SpecialCells(xlCellTypeBlanks).Count
Nombrenum = MaPlage.SpecialCells(xlCellTypeConstants).Count
Vmoy = Somme / Nombrenum
 
 
MsgBox "La moyenne est : " & moyenne_arith & vbCr _
& "La somme est : " & Somme & vbCr _
& "Le nombre est (blancs compris)    : " & Nombre & vbCr _
& "Le nombre est (seuls les nombres): " & Nombrenum & vbCr _
& "Encore une moyenne : " & Vmoy & vbCr _
& "Pour la plage : " & MaPlage.Address
 
 
 
End Sub

Edit2 : une autre façon de faire en bouclant sur une plage :

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
Dim MaPlage As Range, MaCel As Range
Dim lig1 As Long, lig2 As Long
Dim col1 As Integer, col2 As Integer
Dim moyenne_arith  As Double
 
Dim Nombre As Long, Somme As Double, Nombrenum As Long, Vmoy As Double
 
lig1 = 1
col1 = 8
lig2 = 50
col2 = 8
 
Set MaPlage = Range(Cells(lig1, col1), Cells(lig2, col2))
 
For Each MaCel In MaPlage
If IsNumeric(MaCel) And MaCel <> "" Then ' MaCel <> empty pour ne pas prendre en compte les zéros
    Nombrenum = Nombrenum + 1
    Somme = Somme + MaCel
End If
Next
 
moyenne_arith = Somme / Nombrenum
 
MsgBox "La moyenne est : " & moyenne_arith & vbCr _
& "La somme est : " & Somme & vbCr _
& "Le nombre est (seuls les nombres): " & Nombrenum & vbCr _
& "Pour la plage : " & MaPlage.Address

[bebel9313]

Merci bien, ça marche maintenant.
Je n'ai pas tout compris dans les exemples.
Mais j'y reviendrai.