A voir également:
- Moyenne mobile toutes les x valeurs
- Moyenne mobile excel ✓ - Forum - Excel
- Excel moyenne si compris entre 2 valeurs - Forum - Excel
- Moyenne sans cellule vide ou valeur nulle ✓ - Forum - Excel
- Moyenne avec condition effacer les valeurs 0 ✓ - Forum - Bureautique
- Moyenne mobile trimestrielle ✓ - Forum - Bureautique
7 réponses
via55
- Messages postés
- 12723
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 30 septembre 2020
Bonjour
Avec une fonction personnalisée
Ouvrir éditeur VBA (Alt+F11) - Insertion - Module
Copier coller le code suivant et fermer éditeur
La formule s'utilise selon la syntaxe =moyenneperso(x)
Cdlmnt
Via
Avec une fonction personnalisée
Ouvrir éditeur VBA (Alt+F11) - Insertion - Module
Copier coller le code suivant et fermer éditeur
Function moyenneperso(nb As Integer)
For n = 1 To nb * (nb - 1) Step nb
tot = tot + Range("A" & n)
Next
moyenneperso = tot / nb
End Function
La formule s'utilise selon la syntaxe =moyenneperso(x)
Cdlmnt
Via
via55
- Messages postés
- 12723
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 30 septembre 2020
La macro s’applique forcément sur la plage A:A, il n'y a pas lieu de l'indiquer
il suffit de remplacer x par un nombre ou par l'adresse de la cellule comportant ce nombre donc =moyenneperso(D1) devrait fonctionner
Pour voir ce qui ne va pas il me faut ton fichier
A poster sur cjoint.com, copier le lien créé et revenir le coller ici
il suffit de remplacer x par un nombre ou par l'adresse de la cellule comportant ce nombre donc =moyenneperso(D1) devrait fonctionner
Pour voir ce qui ne va pas il me faut ton fichier
A poster sur cjoint.com, copier le lien créé et revenir le coller ici
Princedes
- Messages postés
- 26
- Date d'inscription
- mardi 4 août 2020
- Statut
- Membre
- Dernière intervention
- 15 septembre 2020
J'ai tenté de faire au mieux avec WeTransfer : https://we.tl/t-RSpx0LQCkm
via55
- Messages postés
- 12723
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 30 septembre 2020
J'ai modifié la macro en conséquence pour que tu puisses choisir la colonne, le pas et le nombre
https://mon-partage.fr/f/eRutcUFN/
https://mon-partage.fr/f/eRutcUFN/
Princedes
- Messages postés
- 26
- Date d'inscription
- mardi 4 août 2020
- Statut
- Membre
- Dernière intervention
- 15 septembre 2020
En revanche, lorsque j'étends la formule, en figeant le pas et le nb d'arguments, mais en laissant libre la plage, cela me met toujours le même résultat, alors que normalement les chiffres devraient évoluer (j'ai tenté un F9, en vain).
via55
- Messages postés
- 12723
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 30 septembre 2020
Si tu étires la formule vers le bas la colonne de la moyenne ne change pas donc même résultat, si tu étires vers la droite la colonne change donc résultat différent
Le calcul part toujours de la 2eme ligne par contre si tu voulais en étirant changer de ligne de départ il faudra modifier la macro
Donne moi plus de précisions
Le calcul part toujours de la 2eme ligne par contre si tu voulais en étirant changer de ligne de départ il faudra modifier la macro
Donne moi plus de précisions
Princedes
- Messages postés
- 26
- Date d'inscription
- mardi 4 août 2020
- Statut
- Membre
- Dernière intervention
- 15 septembre 2020
En effet, j'aimerais étirer vers le bas. L'idée est de faire une moyenne mobile pour étudier l'évolution de la moyenne des variations.du coup le calcul doit partir de la cellule A3 si je mets la formule en B3, puis A4 si je mets la formule en B4 ... etc ...
exemple concret : si je mets 1 et 3, j'étude la moyenne mobile de chaque mois (1), sur 3 mois. et donc son évolution au fil du temps. si je mets 3 et 3, j'étudie la moyenne mobile de chaque 3 mois, sur 9 mois (pas de 3 x 3 arguments). Donc la moyenne mobile me permet de savoir ce l'évolution des écarts, à 3 mois quelque soit le mois de départ.
D'où l'intérêt d'une moyenne mobile étirable vers le bas.
exemple concret : si je mets 1 et 3, j'étude la moyenne mobile de chaque mois (1), sur 3 mois. et donc son évolution au fil du temps. si je mets 3 et 3, j'étudie la moyenne mobile de chaque 3 mois, sur 9 mois (pas de 3 x 3 arguments). Donc la moyenne mobile me permet de savoir ce l'évolution des écarts, à 3 mois quelque soit le mois de départ.
D'où l'intérêt d'une moyenne mobile étirable vers le bas.
via55
- Messages postés
- 12723
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 30 septembre 2020
Tu n'avais pas précisé cela au départ
alors remplace la 2eme ligne de la macro par celle-ci :
alors remplace la 2eme ligne de la macro par celle-ci :
For n = plage.Row To plage.Row + pas * (nb - 1) Step pas
Princedes
- Messages postés
- 26
- Date d'inscription
- mardi 4 août 2020
- Statut
- Membre
- Dernière intervention
- 15 septembre 2020
ça fonctionne, ça fait des moyennes je fais les vérifications d'usage pour voir si les chiffres correspondent et je ne retombe pas sur les mêmes chiffres en pas de 3 et 3 et quand je fais manuellement.
via55
- Messages postés
- 12723
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 30 septembre 2020
perso je trouve le même résultat macro ou manuel
Princedes
- Messages postés
- 26
- Date d'inscription
- mardi 4 août 2020
- Statut
- Membre
- Dernière intervention
- 15 septembre 2020
Au fait, si jamais, vous vous y connaissez aussi en écart type ... J'abuse de votre gentillesse, je cherche une façon de faire un écartype.si.ens un peu comme une moyenne.si.ens mais avec un écart type. J'ai posté un autre sujet dessus.
Merci pour votre réponse et votre aide. Je vous en suis très reconnaissant !
Juste pour comprendre : j'ai mis le code dans VBA, puis voulant appliquer la fonction dans la colonne B, j'écris
=moyenneperso(A:A;D1)
A:A étant la plage sur laquelle je veux calculer la moyenne
D1 étant X. Celui qui définit à la fois le pas de saut et le nombre d'argument de la moyenne.
J'ai également essayé =moyenneperso(A:A) et =moyenneperso(D1) et =moyenneperso(A1;D1) ... sans succès
Malheureusement pour moi cela ne fonctionne pas, mais peut être ai-je mal compris votre réponse à ma question. Je vous serais encore plus reconnaissant, de préciser la réponse.