Discussion :

[alily]

Bonjour, j'ai un problème car je doit effectuer la moyenne selon une sélection: set plage=sélection
mais je suis bloqué car je n'arrive justement pas à faire cette sélection et donc le calcul de la moyenne..
j'ai tenté plusieurs choses:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MoyenneVariation()
    Worksheets("coursbourse").Activate
    Dim plage As Range, somme As Integer, moyenne As Integer, derligne As Integer
        'derligne = Range("B2").End(xlUp).Row
        Set plage = Range("B2", Range("B1").End(xlDown))
        'Set plage = Range(Cells(2, 1), Cells(derligne, 1))
        somme = Range("B12").Value = Application.Sum(Range("A1").EntireColumn)
           'moyenne1 = WorksheetFunction.Average(plage)
            moyenne = somme / ()
        Range("B12") = moyenne
End Sub

de plus je doit mettre le résultat en B12..
est ce que vous pourriez m'aider s'il vous plait ??!

[Invité]

Bonjour,

Ce code ne fonctionne que si une cellule vide existe avant B12

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
Sub MoyenneVariation()
 
Dim DerLigne As Long, Plage As Range
 
    With Sheets("coursbourse")
         DerLigne = .Cells(2, 2).End(xlDown).Row
         Set Plage = .Range(.Cells(2, 2), .Cells(DerLigne, 2))
 
         With .Range("B12")
               .Value = WorksheetFunction.Average(Plage)
               .NumberFormat = "# ##0.00#"
        End With
        Set Plage = Nothing
    End With
 
End Sub

Sinon

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
Sub MoyenneVariation()
 
Dim  Plage As Range
 
    With Sheets("coursbourse")
 
         Set Plage = .Range(.Cells(2, 2), .Cells(11, 2))
         With .Range("B12")
               .Value = WorksheetFunction.Average(Plage)
               .NumberFormat = "# ##0.00#"
        End With
        Set Plage = Nothing
    End With
 
End Sub

Cordialement.

[alily]

Ca marche!!
Merci beaucoup !!