Moyenne répétitive sur VBA

Version imprimable

30/08/2019, 11h57
Saadiquoi

Moyenne répétitive sur VBA

Bonjour,

Je travaille actuellement sur une études des prix horaires de l’électricité et je cherche à faire des moyennes journalières, semi-journalières... jusqu'a toutes les deux heures.

Mon tableau ressemble à ça.

W MWh Prix Spot (€/MWh)

01/01/2018 00:00 0 0 6,74

01/01/2018 01:00 0 0 4,74

01/01/2018 02:00 0 0 3,66

01/01/2018 03:00 0 0 1,26

Les prix commencent en D13 et se terminent en D8772.

Je vous sollicite alors pour deux questions :
-Comment faire une macro pour la moyenne de toutes les 24 cellules ?
-Comment faire une macro pour la moyenne de toutes les 18 19 et 20e cellules de chaque bloc de 24 cellules?

J'espère que je ne vous en demande pas trop.

Merci
30/08/2019, 12h05
Menhir

Je pense qu'une macro n'est pas utile. Une combinaison de MOYENNE() et DECALER devrait largement suffire.
Mais pour en dire plus, il faudrait connaitre les adresses de tes cellules.
Pourrais-tu présenter une copie d'écran de tes données avec les n° lignes/colonnes visibles.
30/08/2019, 13h53
Saadiquoi

1 pièce(s) jointe(s)

Citation:

Envoyé par Menhir

Je pense qu'une macro n'est pas utile. Une combinaison de MOYENNE() et DECALER devrait largement suffire.
Mais pour en dire plus, il faudrait connaitre les adresses de tes cellules.
Pourrais-tu présenter une copie d'écran de tes données avec les n° lignes/colonnes visibles.

Merci pour ta réponse. Je ne connais pas la fonction décaler, j'ai regardé sur google mais je n'ai pas compris le fonctionnement.=

Voici un abstract de mon tableau, ça descend jusqu’à 8772 et c'est la colonne D qui m’intéresse . Il ne faut pas faire attention aux dates c'est une simulation de la production faite à la va vite.

Pièce jointe 500373
30/08/2019, 15h01
Menhir

On va partir de l'hypothèse que ta colonne A contient une (et une seule) ligne pou chaque tranche d'une heure.
Je vais mettre les résultats dans la colonne J (qui semble vide) mais tu peux les mettre dans la colonne que tu veux en adaptant la formule.

En J12, tu mets le nombre de tranches horaires concernées par la moyenne.
Par exemple, pour avoir une moyenne journalière, tu mets 24, pour une demi-journée et mets 12, etc.

En J13, tu mets la formule : =MOYENNE(DECALER($D13;0;0;J$12;1))Tu copies J13 vers le bas jusqu'à la fin de tes données.

	W	MWh	Prix Spot (€/MWh)
01/01/2018 00:00	0	0	6,74
01/01/2018 01:00	0	0	4,74
01/01/2018 02:00	0	0	3,66
01/01/2018 03:00	0	0	1,26

Je te remercie pour ta reponse. J'ai préféré faire une macro (avec l'aide d'un collègue) pour pouvoir la moduler aux autres stats que je devais faire. Ca ressemble à ça :
Sub moyenne()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Dim i, o, a, b, j As Integer
    Dim k As Integer
    Dim PlageDeDonnees As Range
    k = 0
    o = 1
    i = 9
    j = 10
 
    Do While Cells(24 * k + 13, 1).Value <> ""
            a = 24 * k + 13
            b = 24 * k + 36
            Set PlageDeDonnees = Range("D" & a & ":D" & b)
            Cells(o + 13, i) = "Jour " & o
            Cells(o + 13, j) = Application.Average(PlageDeDonnees)
 
        k = k + 1
        o = o + 1
 
    Loop

Ca a bien fonctionné jusqu'ici. Maintenant j'essaye de faire une moyenne de prix lorsque la production (colonne C) est différente de 0 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Dim i, o, a, b, j As Integer
    Dim k As Integer
    Dim PlageDeDonnees As Range
    k = 0
    o = 1
    i = 27
    j = 28
 
    Do While Cells(24 * k + 13, 3).Value <> 0
            a = 24 * k + 13
            b = 24 * k + 33
            Set PlageDeDonnees = Range("D" & a & ":D" & b)
            Cells(o + 13, i) = "moyenne/hp° " & o
            Cells(o + 13, j) = Application.Average(PlageDeDonnees)
 
        k = k + 1
        o = o + 1
 
    Loop

Mais ça ne marche pas (excel ne réagit même pas et aucun message d'erreur).

Qu'est ce que vous en pensez?

02/09/2019, 11h08
mat955

Bonjour,

Citation:

Envoyé par Saadiquoi

Qu'est ce que vous en pensez?

On en pense que tu devrais utiliser les balises pour ton code dans ton précédent post, car en l'état c'est illisible.

Citation:

Je te remercie pour ta reponse. J'ai préféré faire une macro (avec l'aide d'un collègue) pour pouvoir la moduler aux autres stats que je devais faire. Ca ressemble à ça :

Pourtant, il vaut mieux préférer les fonctions natives d'Excel quand cela suffit. La combinaison proposée par Menhir a l'air de très bien fonctionner et tu peux même l'adapter à ton nouveau besoin en utilisant MOYENNE.SI voire MOYENNE.SI.ENS au lieu de MOYENNE.
02/09/2019, 11h11
halaster08
Citation:

J'ai préféré faire une macro (avec l'aide d'un collègue)
...
Qu'est ce que vous en pensez?

Bonjour,

Je pense que si tu ne maitrise pas les macro c'est une perte de temps:
- les macros remplies de boucle tournent toujours moins vite qu'une formule
- les formules sont généralement plus simple à comprendre
- une fois parvenu a une formule qui te convient, tu peux alors faire une macro simple qui utilise cette formule
Pense à utiliser la balise code (bouton #) ça le rend beaucoup plus agréable à lire.

Citation:

Mais ça ne marche pas (excel ne réagit même pas et aucun message d'erreur).

Essaye en mode pas à pas (touche F8)
Il est probable que la condition de ta boucle soit fausse à la première itération
02/09/2019, 11h43
Saadiquoi

Citation:

Envoyé par mat955

Bonjour,

On en pense que tu devrais utiliser les balises pour ton code dans ton précédent post, car en l'état c'est illisible.

Pourtant, il vaut mieux préférer les fonctions natives d'Excel quand cela suffit. La combinaison proposée par Menhir a l'air de très bien fonctionner et tu peux même l'adapter à ton nouveau besoin en utilisant MOYENNE.SI voire MOYENNE.SI.ENS au lieu de MOYENNE.

Désolé, j'ai rectifié.

Pour la fonction de Menhir, je n'y arrive pas. Je l'ai appliquée à la lettre et le souci est qu'en tirant la formule, la valeur en J14 me donne la moyenne des 24 cellules suivantes à partir de D14 et non à partir de D37 comme j'aurais aimé.
02/09/2019, 15h26
halaster08

Citation:

Envoyé par Saadiquoi

Pour la fonction de Menhir, je n'y arrive pas. Je l'ai appliquée à la lettre et le souci est qu'en tirant la formule, la valeur en J14 me donne la moyenne des 24 cellules suivantes à partir de D14 et non à partir de D37 comme j'aurais aimé.

Essaye ceci: =MOYENNE(DECALER(DECALER($D13;$J$12*(LIGNE(J$13)-LIGNE(J13));0);0;0;J$12;1)) à mettre en J13 comme celle de Mehnir
02/09/2019, 16h28
Saadiquoi

Citation:

Envoyé par halaster08

Essaye ceci: =MOYENNE(DECALER(DECALER($D13;$J$12*(LIGNE(J$13)-LIGNE(J13));0);0;0;J$12;1)) à mettre en J13 comme celle de Mehnir

Ca ne marche toujours pas.. Mais ça à la limite ce n'est pas grave car le code que j'ai utilisé est correct et fonctionne plutot bien, il m'a permis de calculer d'autres moyennes.

Maintenant, c'est la ligne que je dois ajouter qui me manque pour faire en sorte à ce que la moyenne ne prenne en compte que les prix pour les heures pendant lesquelles ma centrale produit (j'ai besoin d'un code car la centrale ne produit pas pendant le même nombre d'heures selon les saisons).