Problème avec mon code (moyenne parametrable)

Version imprimable

Bonjour à toutes et à tous,
Faisons court faisons bien ;)
Je souhaite moyenner une suite de données suivant un ‘pas ‘ paramétrable par l’exécutant, exemple :
Ma série dans la colonne A
1
5
4
7
21
5
3
6
54
1
2
5
Un ‘pas ‘ de 3 par exemple, et on obtient dans la colonne B:
(1+5+4)/3 c'est-à-dire 3.3333
(7+21+5)/3
(3+6+54)/3
(1+2+5)/3

Si l’opérateur choisi un ‘pas’ de 4 :
(1+5+4+7)/4
(21+5+6+54)/4
La quantité de données de la colonne B = ENT(NBVAL(A:A)/’pas’)

Le code auquel j’ai pensé est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub paramaverage() Dim sht As Worksheet Dim LastLigne As Long Dim i, Step1, StepRef As Integer Set sht = Sheets("MaFeuille_1") With sht Step1 = StepRef = .Cells(3, 5) .Cells(1, 17) = Application.Average(.Range("A" & 1 & ":A" & StepRef).Value) LastLigne = .Cells(5, 5) '.Range("A65536").End(xlUp).Row For i = 2 To LastLigne Step 1 .Cells(i, 17).Value = Application.Average(.Range("A" & (Step1 - StepRef) & ":A" & Step1).Value) Step1 = Step1 + StepRef Next End With End Sub
Vous l’aurez bien compris, ma macro ne fonctionne pas… et n’étant qu’un novice ça n’aide en rien.

Un grand merci en avance pour ceux qui liront mon post, ceux qui essayeront de m’aider, et pour ceux qui réussiront :ccool:

A bientôt !

Cheerio:)

Salut,

Un exemple a adapter a ton cas.
J'ai mis en colonne A les nombres en colonne B les moyennes
et il faut saisir en C2 le pas avant de lancer la macro.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CalculMoyenne()
    Dim Pas As Byte, CptPas As Byte
    Dim Cpt As Integer, CptResult As Integer
    Dim Nombre As Double
 
    Pas = Range("C2").Value
    Columns(2).ClearContents
    CptResult = 1
    Cpt = 1
    While Cpt <= Range("A65536").End(xlUp).Row
        Nombre = 0
        For CptPas = 1 To Pas
            Nombre = Nombre + Range("A" & Cpt + CptPas - 1).Value
        Next CptPas
 
        Cpt = Cpt + Pas
        Range("B" & CptResult).Value = Nombre / Pas
        CptResult = CptResult + 1
    Wend
End Sub

Tu peux utiliser une inputbox pour définir la valeur du pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub mo()
 
Boite = InputBox("Choisisez une valeure pour le pas", "Valeure du Pas")
 
i = 1
If IsNumeric(Boite) Then
Do Until i > Range("A65536").End(xlUp).Row
Moy = WorksheetFunction.Average(Range(Cells(i, 1), Cells(i + 2, 1)))
Cells(i + 2, 2).Value = Moy
 
i = i + Boite
Loop
 
End If
 
End Sub

Citation:
Envoyé par Minick
Salut,

Un exemple a adapter a ton cas.
J'ai mis en colonne A les nombres en colonne B les moyennes
et il faut saisir en C2 le pas avant de lancer la macro.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub CalculMoyenne() Dim Pas As Byte, CptPas As Byte Dim Cpt As Integer, CptResult As Integer Dim Nombre As Double Pas = Range("C2").Value Columns(2).ClearContents CptResult = 1 Cpt = 1 While Cpt <= Range("A65536").End(xlUp).Row Nombre = 0 For CptPas = 1 To Pas Nombre = Nombre + Range("A" & Cpt + CptPas - 1).Value Next CptPas Cpt = Cpt + Pas Range("B" & CptResult).Value = Nombre / Pas CptResult = CptResult + 1 Wend End Sub
Merci beaucoup, je teste tout ça...
Citation:
Envoyé par diude54
Tu peux utiliser une inputbox pour définir la valeur du pas:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub mo() Boite = InputBox("Choisisez une valeure pour le pas", "Valeure du Pas") i = 1 If IsNumeric(Boite) Then Do Until i > Range("A65536").End(xlUp).Row Moy = WorksheetFunction.Average(Range(Cells(i, 1), Cells(i + 2, 1))) Cells(i + 2, 2).Value = Moy i = i + Boite Loop End If End Sub
Merci beaucoup, je teste également le votre, j'y intègre un timer, car je dois faire ça pour 63000 lignes...
Merci beaucoup :)