Calcul d'une moyenne par macro sous excel Résolu

Question

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.

lami20j · Answer

Salut,

Tu devrais nous dire la plage pour faire la somme, ce qui nous permettre aussi de connaître le x.

rougesang · Answer

Ah c'est pas bête oui ^^ désolé
La plage est B2:B6, c'est tout petit et sûrement tout con mais bon :s

rougesang · Answer

Ah oui c'est peut être mieu ^^ désolé
La plage de données est B2:B6, c'est tout petit et donc sûrement tout con mais bon :s

rougesang · Answer

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?

lami20j · Answer

Re,

Juste un exemple.

Private Sub CommandButton1_Click()
    For i = 2 To 6
        Sum = Sum + Range("B" & i) ' de B2 à B6
    Next
    MsgBox "Moyenne = " & Format(Sum / (i - 2), "0.00")
    'i - 2 puisqu'à la sortie de la boucle i = 7
End Sub

rougesang · Answer

ça marche!!!!
Merci pour ton aide, ça fait plaisir ^^
Je t'embête juste une dernière fois, est il possible que le résultat apparaisse dans une cellule (genre en B10)?
Je connai une commande qui s'apelle ActiveSheet.Cells(i,j).value et je suppose qu'il faut utiliser:
Dim m As integer
et après un truc du genre:
m = ActiveSheet.Cells (10 , 2).Value?

lami20j · Answer

Re,

Private Sub CommandButton1_Click()
    For i = 2 To 6
        Sum = Sum + Range("B" & i) ' de B2 à B6
    Next
    ActiveSheet.Range("B10") = Sum / (i - 2)
    'i - 2 puisqu'à la sortie de la boucle i = 7
End Sub

rougesang · Answer

Merci pour ces deux réponses à la fois exactes et rapides ^^
Il ne me reste plusqu'à bosser pour gérer ce genre de cas.

Calcul d'une moyenne par macro sous excel

8 réponses

Discussions similaires

Newsletters