Calculer Moyenne Ecartype et Mediane en vba

[Lone-wolf]

Bonjour à tous,

je cherche à calculer la moyenne de plusieures colonnes, ainsi que l'écartype et la médiane en VBA.

Pour l'instant j'ai éssaié ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
Dim cell As Range
Dim moyenne As Integer
 
cell = Range("D5:G26").End(xlUp).Row
Set plage = Range(Cells(5, 4), Cells(derligne, 5))
moyenne = WorksheetFunction.Average(plage)
End Sub

Mais il n'est pas correct.

Le fichier joint n'as pas de code.

 

[JNP]

Re : Calculer Moyenne Ecartype et Mediane en vba

Salut Loup Solitaire ,
Pourquoi veux-tu passer par VBA ? J'ai l'impression que c'est pour tenir compte de s'il y a des notes ou pas...
D'où une proposition en matricielle .
De mémoire, tu es en 2007, donc 1er trimestre avec gestion d'erreur 2007, 2ème trimestre sans gestion d'erreur.
Bonne journée

 

[Lone-wolf]

Re : Calculer Moyenne Ecartype et Mediane en vba

Bonjour JNP,

parce-que j'ai déjà un classeur (idem) avec les formules matricielles.

J'ai essaié de me compliquer la tâche.

A+

Oooops! J'ai oublié ceci: dans la feuille Années 2010 faire la moyenne des trimèstres.

 

[JNP]

Re : Calculer Moyenne Ecartype et Mediane en vba

Re ,

J'ai essaié de me compliquer la tâche.

Techniquement, si tu appelles au secours, c'est aux autres que tu compliques la tâche ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
Dim cell As Range
Dim derligne As Integer
Dim moyenne As Double, ecarttype As Double, mediane As Double
If Intersect(Range("D5:D27"), Target) Is Nothing Then Exit Sub
Set plage = Range("D5:D27")
moyenne = Format(WorksheetFunction.Average(plage), "##0.0")
ecartype = Format(WorksheetFunction.StDev(plage), "##0.0")
mediane = Format(WorksheetFunction.Median(plage), "##0.0")
MsgBox "Moyenne : " & moyenne & vbCrLf & "Ecart type : " & ecartype _
    & vbCrLf & "Médiane : " & mediane
End Sub

Bon app.

 

[Lone-wolf]

Re : Calculer Moyenne Ecartype et Mediane en vba

Mais noooon, voyons!

Vous êtes des personnes douées.


Bon après-midi JNP.

 

[Lone-wolf]

Re : Calculer Moyenne Ecartype et Mediane en vba

JNP Atteeeeeeeennnnd!!

Tu pourrais enlever les résultats dans la MsgBox et les inserer dans les lignes et colonnes respectives s'il te plaît?

Merci beaucoup.

 

[JNP]

Re : Calculer Moyenne Ecartype et Mediane en vba

Re ,

Tu pourrais enlever les résultats dans la MsgBox et les inserer dans les lignes et colonnes respectives s'il te plaît?

Si tu me donnes une bonne raison d'utiliser VBA dans ce cas de figure, pourquoi pas ...
Sinon, vu qu'il n'y a, pour moi, vraiment, mais vraiment, aucun intérêt de rendre une chose simple hyper compliquée, c'est simple

Cells(Ligne, Colonne) = Résultat

à adapter pour tous les cas de figure que tu souhaites ...
Bonne soirée

 

[phlaurent55]

Re : Calculer Moyenne Ecartype et Mediane en vba

Bonjour Jean-Noel, le loup

@ lone wolf
il me fait peur ton fichier
et surtout la colonne de droite "Moyenne"

Comment peux-tu faire une moyenne avec des notes de français, math, histoire, géo,..............
Mon directeur appelle cela de la soupe; de la macédoine de fruits, de la M.......

Comme solution qui n'a pas duré bien longtemps, nous avons du faire la moyenne "pondérée" en fonction du nombre de périodes hebdomadaires de chaque cours;
5 périodes de maths sur 50 points
2 périodes de géo ........20 p
10 périodes de labo......100 p
3 pér.........................30 p
avec en final , dans une case bien mise en évidence, le "POURCENTAGE" qui fait plaisir ou non à voir, qui amenait des disputes, jalousies des recours contre les décisions de fin d'années, j'en passe et des meilleures.
c'est vrai que les parents en sont demandeurs parce que c'est comme cela qu'il ont été jugés pendant leur scolarité

Tout cela été abandonné au profit d'une évaluation du niveau des compétences et ce dans les différents cours avec les notes I ,F, S, B, TB, pour Insuffisant, Faible, Satisfaisant, Bien, Très Bien.
La décision finale est prise en fin d'année par l'ensemble des profs et cette année, j'ai encore vu la réussite d'un élève nul ( archi-nul) en français, maths, et gym ( 8 heures de cours au total) mais qui fait un maximum dans l'orientation choisie ( la mécanique) à tel point qu'un chef d'entreprise venu assister à l'épreuve de qualification le recevait le lendemain pour lui donner un contrat de travail à temps plein et à durée INdéterminée
Si cet élève avait été coté avec la fonction moyenne, il ne réussissait pas son année et ni mes collègues ni moi-même n'aurions été fiers de nous

Bon week-end à+
Philippe

 

[JNP]

Re : Calculer Moyenne Ecartype et Mediane en vba

Re ,

Si cet élève avait été coté avec la fonction moyenne, il ne réussissait pas son année et ni mes collègues ni moi-même n'aurions été fiers de nous

Comme disais Coluche : "Il avait les jambes moyennes, un corps moyen, des bras moyens, et paradoxalement, quand on a tout de moyen, on est plus petit que la moyenne..."
Entièrement d'accord avec toi, Philippe, c'est ce qui sort de la moyenne qui est interressant, pas ce qui rentre dedans ...
Bref, je parle plutôt de l'écart d'un type ...
Bonne nuit

 

[Lone-wolf]

Re : Calculer Moyenne Ecartype et Mediane en vba

Messieurs JNP et phlaurent, l'exemple que je vous est donné viens d'ici:

Lien supprimé

Que le responsable d'Excel-Downloads supprime ces mauvais exemples.

Good week

 

[phlaurent55]

Re : Calculer Moyenne Ecartype et Mediane en vba

Re,

Que le responsable d'Excel-Downloads supprime ces mauvais exemples.

l'exemple n'est pas mauvais (je n'ai pas le temps de visionner le tutoriel), tout dépend de l'utilisation qui en est faite
ce qui m'interpelle dans ton fichier, c'est la colonne "Moyenne"
dès que j'ai le temps, je mettrai en pièce jointe une feuille de cotation avec graphe dynamique

à+
Philippe

 

[Lone-wolf]

Re : Calculer Moyenne Ecartype et Mediane en vba

phlaurent, tu fait exprès ou quoi!

Visionne la video et après on en parle.

 

[Lone-wolf]

Re : Calculer Moyenne Ecartype et Mediane en vba

Moi ça ma pas fait TILT la première fois, mais voilà comment il aurait du montrer.

Voir PJ.

A+

 

[phlaurent55]

Re : Calculer Moyenne Ecartype et Mediane en vba

Re,

après avoir visionné la vidéo, j'avoue que ma réponse était un peu précipitée
j'ai eu peur en voyant cette colonne "moyenne" mais je reste un farouche opposant à cela ainsi qu'à toute autre forme de calculs et de savants mélanges de cotes qui au final donnent un soupe indigeste

à partir de ton dernier fichier joint, j'ai mis en place un graphe dynamique ( sur la première feuille uniquement) en fonction de chaque élève.
il est possible de faire la même chose pour les différents cours

à+
Philippe

 

[Lone-wolf]

Re : Calculer Moyenne Ecartype et Mediane en vba

Il n'y a pas de mal Philippe, elle est très bien ton idée.

A+