Creer un bouton calcul de moyenne

syll.junior2 -  
XFlywin Messages postés 382 Statut Membre -
bonjour je voudrais avec vos permissions le code vba pour creer un bouton qui me permettra des que je clique dessus je puisse calculer repidement les moyennes
merci

1 réponse

XFlywin Messages postés 382 Statut Membre 47
 
Bonjour,

Tu as ma permission :D
Voici le code.
C'était au cours d'un de mes projet, il te faut modifier les variables et les colonnes, rien de bien compliqué, si tu as un problème demande moi :)

Sub nbpoint()
Nb = 0
Range("B2").Select
While Not (IsEmpty(ActiveCell))
Nb = Nb + 1
Selection.Offset(1, 0).Select
Wend
MsgBox Nb

Sub Valeurmoyenne()

nbpoint
somme = 0
For i = 1 To Nb
somme = somme + Cells(i + 1, 2)
Next
Moyenne = somme / Nb

MsgBox Moyenne

End Sub

Cordialement :)
0