Calcul moyenne

[Sarah]

Bonjour à tous

Voici ma question:

J'ai une colonne A avec des valeurs et mon but est d'écrire un code qui me permet de calculer la moyenne. Cette colonne peut varier en longueur, elle est dynamique.

(je ne souhaite pas utiliser la formule toute prête de excel)

Pourriez-vous m'aider SVP?

Je vous remercie beaucoup, beaucoup!

Sarah

 

[Jeannot45]

Bonjour,

Pourquoi ne pas utiliser la fonction d'excel !!!???...
est-il nécessaire de réinventer la roue quand elle existe déjà ?

Jeannot

 

[Sarah]

C'est d'accord, seulement comemnt faire pour que ce soit dynamique..cad une fois moyenne jusqu'à la colonne A10 et l'autre fois jusuq'à la colonne A100 etc...

Merci de ta réponse!

 

[globinours]

Salut,
Cette macro répondra à ta question
la moyenne est eb B1

Sub moyenne()
Dim cellule As Range
Dim n As Double
Dim total As Double
Dim resultat As Double
Columns('A:A').Select
n = 0
total = 0
For Each cellule In Selection
If cellule.Text = '' Then GoTo prochainecellule
n = n + 1
total = total + cellule.Value
prochainecellule:
Next cellule
resultat = total / n
Cells(1, 2) = resultat
End Sub

 

[Sarah]

Mille merci pour ta réponse et je te souhaite une bonne journée!

sarah

 

[JeanMarie]

Bonjour

=Moyenne(A:A) fonctionne très bien.

Moyenne ne prend pas en compte les valeurs texte, ni les cellules vides. mais où est donc ton problème ???

@+Jean-Marie

Message édité par: JeanMarie, à: 27/07/2005 11:31

 

[Abel]

Bonjour Sarah, Globinours,

Il y a aussi la solution de programmer une fonction.

Insert ce code dans un module :

Function Moy()
s = 0
i = 0
On Error Resume Next
For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
    s = s + c.Value
    If IsNumeric(c.Value) = True Then i = i + 1
Next
Moy = Format(s / i, '##,##0.00') * 1
End Function

Ensuite, tu te mets n'importe où dans la feuille et tu tapes '=moy()'.
Ca calcul la moyenne sur les valeurs entrées dans la plage A2 à la première ligne non vide en partant du bas de la feuille de la colonne A.

Juste une chose, quand tu entres des nouvelles valeurs, il faut éditer et valider la cellule (F2 puis 'Entrée') où il y a la fonction pour mettre à jour le résultat. La touche F9 et l'instruction VB 'calculate' ne sont pas suffisants pour mettre à jour le résultat.


Abel

 

[globinours]

Effectivement c'est beaucoup plus simple, lol

Mais pourquoi faire simple quand on peut faire compliqué...

 

[Abel]

Re,

Oups! Pas frais le gardon ce matin.

Pardon JeanMarie. En plus, il me semble que cette solution est vraiment la plus simple.

Abel.

 

[Sarah]

Bonjour Jean-Marie

Je ne connais pas pas trop les formules. Je vais essayer ta formule.

Je dois aussi calculer l'écart type...mais je vais essayer d'utiliser les formules toutes prêtes.

Mon but est d'automatiser le tout, avec des boutons par exemple.

A +

Sarah

 

[Sarah]

Bonjour Abel

merci pour ta réponse, je ne suis pas à l'aise avec les formules.

Je suppose qu'il y a aussi une formule pour l'écart type!

A +

 

[2passage]

Bonjour,

guess it.... et oui... =ECARTYPE(...)

Sinon avec les focntions SOMME et SOMME.CARRES tu peux facilement refaire les calculs

Bon courage
A+

 

[JeanMarie]

Re...

Oui, tu trouveras toutes ces fonctions dans la catégories 'statistiques' dans la boîte de dialogue, que tu obtiens par le menu Insertion/fonction.

Ecartype comme moyenne, gère les cellules vides, et les cellules texte.

@+Jean-Marie

PS: Sarah je ne connaissais pas les fonction avant de les avoir utilisées une première fois.

 

[Sarah]

Merci à vous tous qui avez répondu à ma question!

Bonne journée!