Creer un bouton calcul de moyenne
syll.junior2
-
XFlywin Messages postés 382 Statut Membre -
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
merci
1 réponse
-
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 :)
