moyenne sous excel via VBA/macro/bouton

[invitede4f29f2]

Bonjour,
étant un réel novice sous excel, je poste une question qui vous semblera certainement très co... mais bon on est comme on nait ^^
Voilà, je souhaite faire une macro sous excel qui me permette de calculer une moyenne toute bête du type m = somme / x avec x = nombre d'échantillons.
Je sais le faire dans la feuille de calcul, mais j'aimerai que cela ce fasse sous VBA et qu'à l'affichage il n'y ai qu'à cliquer sur un boutton ActiveX pour effectuer ce calcul.
J'ai pas mal cherché sur google, yahoo et autres alors j'espère que quelqu'un aura une réponse.
J'espère être au bon endroit et que mes fautes d'orthographes ne gêneront pas trop.
Merci.
-----

[jiherve]

Bonsoir,
ici VBA pour les nuls http://dj.joss.free.fr/.
pas de méprises je suis aussi passé par là.
JR

[invitede4f29f2]

Merci pour le rien mais je doit vraiment être un cas lol

J'ai testé ça mais ça ne marche pas :'(

Sub CommandButton1_Click()
Dim m, s, C1, C2, C3, C4, C5 As Integer
s = C1 + C2 + C3 + C4 + C5 = ActiveSheet.Cells(10, 2).Value
m = s / 5 = ActiveSheet.Cells(9, 2).Value
C1 = ActiveSheet.Cells(2, 2)
C2 = ActiveSheet.Cells(3, 2)
C3 = ActiveSheet.Cells(4, 2)
C4 = ActiveSheet.Cells(5, 2)
C5 = ActiveSheet.Cells(6, 2)
End Sub

Quelqu'un aurait une idée?

[sitalgo]

B'jour,

Les instructions sont exécutées dans l'ordre, de haut en bas.

Sub CommandButton1_Click()
Dim m, s, C1, C2, C3, C4, C5 As Integer
s = C1 + C2 + C3 + C4 + C5 = ActiveSheet.Cells(10, 2).Value
m = s / 5 = ActiveSheet.Cells(9, 2).Value
C1 = ActiveSheet.Cells(2, 2)
C2 = ActiveSheet.Cells(3, 2)
C3 = ActiveSheet.Cells(4, 2)
C4 = ActiveSheet.Cells(5, 2)
C5 = ActiveSheet.Cells(6, 2)
End Sub

On ne peut pas faire la somme alors que les valeurs ne sont pas encore lues.
Il faut aussi respecter la syntaxe

Sub CommandButton1_Click()
Dim m, s, C1, C2, C3, C4, C5 As Integer
C1 = ActiveSheet.Cells(2, 2)
C2 = ActiveSheet.Cells(3, 2)
C3 = ActiveSheet.Cells(4, 2)
C4 = ActiveSheet.Cells(5, 2)
C5 = ActiveSheet.Cells(6, 2)
s = C1 + C2 + C3 + C4 + C5
ActiveSheet.Cells(10, 2).Value = s
m = s / 5
ActiveSheet.Cells(9, 2).Value = m
End Sub

Quelqu'un aurait une idée?[/QUOTE]

[A voir en vidéo sur Futura]

[sitalgo]

D'autre part les instructions suivantes

Dim m, s, C1, C2, C3, C4, C5 As Integer

déclarent seulement C5 en entier, les autres sont var (par défaut).
on peut écrire plus simplement

Dim m&, s&, C1&, C2&, C3&, C4&, C5&

& pour entier 4 octets ; # pour flottant long. Voir le manuel.

[invitede4f29f2]

Merci pour ta réponse c'est exactement ce qu'il me fallait, une vrai remise en forme de ce que je tapai ^^
Merci