Discussion :

[_cheers]

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 :

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
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

A bientôt !

Cheerio

[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 :

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
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

[diude54]

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

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 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

[_cheers]

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 :

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
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...

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

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 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