Discussion :

[ancel17]

Bonjour à tous !

Dans ma première colonne j'ai les dates de toutes les mesures (une toutes les 6 secondes ==> 14400 lignes)
Dans ma deuxième colonne, j'ai une valeur de puissance (autant de valeurs que de mesures).

Ce que je souhaite faire, c'est grouper mes mesures par intervalle de 5 minutes et faire une moyenne des valeurs de puissances comprises dans l'intervalle.

On aurait donc un nouveau tableau de deux colonnes et 288 lignes (+ l'entete) : 288 intervalles et 288 moyennes à calculer.

Merci de vos contributions !

[ancel17]

Le problème est résolu !

Pour cela j'ai utilisé ce qui me sert de cerveau et j'ai réfléchi... Si si, ça m'arrive !

Et comme quelqu'un de super sympa (re si si, ça m'arrive ),je vous donne le code utilisé :

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
Private Sub CommandButton1_Click()
 
Dim FL1 As Worksheet, FL2 As Worksheet
Dim Cell1 As String, Cell2 As String, str As String
Dim NbInt as Integer
 
Set FL1 = ThisWorkbook.Worksheets("test")       'feuille où se trouvent les données
Set FL2 = ThisWorkbook.Worksheets("tableau")    'feuille où le tableau des moyennes est calculé
 
FL2.Range("A1:C1").MergeCells = True            'fusion des cellules
FL2.Cells(1, 1) = "Intervalle"
FL2.Cells(1, 4) = "Moyenne PT"
NbInt = (FL1.Cells.SpecialCells(xlCellTypeLastCell).Row - 1) / 50   'nombre d'intervalles (50 correspond au nombre de mesures par intervalle : 10 mesures par minute * 5 minutes)
For n = 2 To NbInt + 1
    FL2.Cells(n, 1) = FL1.Cells(50 * (n - 2) + 2, 1)  'première date de l'intervalle
    FL2.Cells(n, 2) = "à"
    FL2.Cells(n, 3) = FL1.Cells(50 * (n - 1) + 1, 1)  'dernière date de l'intervalle
    Cell1 = "test!K" & 50 * (n - 2) + 2               'première cellule de l'intervalle contenant les valeurs pour la moyenne 
    Cell2 = "K" & 50 * (n - 1) + 1                    'dernière cellule de l'intervalle contenant les valeurs pour la moyenne
    str = "=average(" & Cell1 & ":" & Cell2 & ")"     'formule de calcul pour la moyenne des cellules de la plage "Cell1:Cell2"
    FL2.Range("D" & n).Formula = str
Next n
 
FL2.Activate                                          'affiche la feuille du tableau
 
Set FL1 = Nothing
Set FL2 = Nothing
 
End Sub

En espérant que ce sera utile à certains d'entre vous !